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In  this  report,  the  transmission  characteristics  of  the  3Com  Etherlink 
II  adapter  are  examined.  In  particular,  the  transmission  speed  of  the 
adapter  is  investigated  with  data  passed  and  without  data  passed 
from  host  memory  to  the  adapter  buffer.  Furthermore,  experiments 
are  conducted  to  examine  the  capability  of  replacing  an  old  packet, 
submitted  to  the  adapter  buffer,  with  a  new  packet  from  the  host 
memory,  as  well  as  the  capability  of  stopping  the  transmission  of  .a 
packet  already  submitted  to  the  network  adapter.  The  primary 
motivation  of  this  investigation  is  to  understand  the  behavior  of  the 
3Com  ETHERLINK  II  adapter  in  a  simulation  networking  enviomment 
under  real  time  constraints.  . 
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X.  INTRODUCTION-MOTIVATION 

The  subject  of  this  report  is  to  understand  the  3Com  ETHER.LINK  II 
adapter  data  transmission  characteristics.  The  3Com  Ether  link  II  adapter  is  a 
high  performance  network  interface  that  links  an  IBM  PC,  XT,  AT,  PS/2  Model 
25  or  30,  or  compatible  personal  computer  to  IEEE  802.3  Ethernet  networks.  The 
experiments  conducted  deal  with  the  following  items. 

Experiments 

1.  Transmission  speed  of  the  adapter  with  data  (packet)  pass  from  remote  memory 
(host  memory)  to  local  memory  (adapter  buffer).  The  program  TSTRX1.ASM  was 
used  to  achieve  this  goal. 

2.  Transmission  speed  of  the  adapter  without  data  (packet)  pass  from  remote 
memory  to  local  memory.  To  complete  this  task  the  program  TSTRX2.ASM  was 
used. 

3.  The  possiBilty  of  stopping  the  transmission  of  a  packet  (data),  already  submitted 
to  the  adapter.  To  perform  this  task  the  program  TSTRX4.ASM  was  utilized. 

4.  The  possibility  of  replacing  an  old  packet  (data),  already  submitted  to  the 
adapter  buffer,  with  a  i.ew  packet  (data)  from  the  host  memory.  Programs  TSTRX6 
and  TSTRX7.ASM  are  used  to  achieve  this  goal. 

The  equipment  used  to  conduct  experiments  1-4  are  i)  two  HP  Vectra  RS/20C 
computers  and  ii)  an  HP  4972A  LAN  protocol  analyzer.  The  motivation  for  ex¬ 
periments  1  and  2  is  to  examine  the  maximum  transmission  speed  capabilities  of 
a  single  network  node  (in  this  case  the  HP  Vectra  RS/20C).  This  information  will 
be  useful  when  the  time  comes  to  overload  a  network  of  HPs  in  order  to  evalu¬ 
ate,  experimentally,  the  performance  of  the  Ethernet  protocol.  The  rationale  of 
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experiments  3  and  4  is  that,  in  certain  real-time  applications,  we  want  to  have  the 
flexibility  to  replace  old  data  with  new  data  or  stop  a  packet’s  transmission  before 
it  is  completed.  This  capability  is  beneficial  in  voice  applications,  where  a  new  voice 
packet  (new  data)  replaces  an  unsuccessfully  transmitted  old  packet  (old  data),  or 
in  SIMNET  applications  where  a  new  state  update  message  (new  data)  replaces  an 
unsuccessfully  transmitted  old  state  update  message  (old  data). 

2.  EXPERIMENTS  1  and  2 

Experiment  1  examines  the  transmission  speed  characteristics  of  the  adapter 
when  data  is  passed  from  the  host  memory  to  the  adapter  buffer.  Data  is  passed 
from  the  host  memory  on  to  the  adapter  buffer  using  DMA.  The  test  environment  is 
set  up  to  avoid  uneccessary  time  delays  due  to  program  instructions,  data  generation 
time  and  busy  network  channel  conditions.  In  particular,  the  following  constraints 
were  imposed. 

a.  The  data  passed  is  a  packet  of  fixed  length. 

b.  The  data  generation  time  is  zero. 

c.  The  network  channel  is  collision  free  (i.e.,  only  one  computer  was  allowed  to  send 
data). 

d.  The  program  was  shortened  to  eliminate  uneccessary  instructions. 

The  above  conditions,  a-d,  allow  us  to  measure  more  accurately  the  true  trans¬ 
mission  speed  of  the  adapter.  Each  time  a  packet  is  transmitted  to  the  adapter  a 
transmission  command  is  issued  .and  the  program  gets  into  a  waiting  mode  until 
this  packet  is  successfully  transmitted.  Three  different  packet  lengths  were  tested 
and  statistical  results  from  the  HP  LAN  analyzer  are  reported  in  Tables  1-3.  In 
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the  first  three  columns  of  Tables  1-3  the  peak  or  average  traffic  generated  by  the 
HP  computer  (with  data  pass  from  host  memory  to  adapter  buffer)  is  shown  for 
eight  different  experiment  runs.  The  next  two  columns  give  us  the  total  number  of 
packets  (frames)  and  the  total  number  of  bytes  generated  by  the  HP  for  the  eight 
different  runs.  Finally,  in  the  last  column  the  average  interarriyal  time  between  two 
consecutive  packet  transmissions  by  the  HP  is  depicted. 


Peak  or 
Average  % 

Peak  or 

Ave.  kbits/s 

Peak  or  Total 

Ave.  frms/s  Frames 

Total 

Bytes 

Packet  elapsed 
Time  (usee.) 

1 

18.40 

1,826 

2,536 

25,335 

2.280E+6 

420 

2 

18.40 

1,826 

2,536 

25,341 

2.281E+6 

380 

3 

18.40 

1,826 

2,  S36 

25,329 

2.230E+6 

390 

4 

18.40 

1,826 

2,536 

25,330 

2.280E+6 

380 

5 

18.40 

1,826 

2,536 

25,348 

2.281E+6 

420 

6 

18.40 

1,826 

2,536 

25,351 

2.282E+6 

380 

7 

18.40 

1,826 

2,536 

2S, 347 

2.281E+6 

380 

3 

18. 4Q 

1.826 

2,536 

25,355 

2.282E+6 

380 

Ave. 

.  18.40 

1,826 

2,536 

25,342 

2.281E+6 

392.5 

Table  1  Packet  length  78  bytes 


Peak  or 

Peak  or 

Peak  or  Total 

Total 

Packet  elapsed 

Average  % 

Ave.  kbits/s 

Ave.  frms/s  Frames 

Bytes 

Time  (usee.) 

1 

21.31 

2,114 

1,716  17,140 

2 . 640E+6 

570 

2 

21.31 

2,114 

1,716  17,156 

2.642E+6 

570 

3 

21.31 

2,114 

1,716  17,154 

2.642E+6 

570 

4 

21.31 

2,114 

1,716  17,157 

2.642E+6 

580 

5  . 

21.31 

2,114 

1,716  17,156 

2.642E+6 

580 

6 

21.31 

2,114 

1,716  17,148 

2.641E+6 

570 

7 

21.31 

2,114  , 

1,716  17,157 

2.642E+6 

580 

8 

21.31 

2,114 

1,716  .  17,146 

2.640E+6 

570 

Ave 

21.31 

2,114 

1,716  17,152 

2.641E+6 

573.75 

Table  2  Packet  length  142  bytes 
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Peak  or 
Average  s 

Peak  or 

Ave.  kbit s/s 

Peak  or 

Ave.  f rrr.s/s 

Total 

Frames 

Total 

Bytes 

Packet  elapsed 
Time  (usee.) 

1 

23.77 

2,358 

1,045 

10,443 

2.945E+6 

960 

2 

23.77 

2,358 

1.045 

10,447 

2 . 946E+6 

960 

3 

23.77 

2,358 

1,045 

10,453, 

2.948E+6 

960 

4 

23.77 

2,358 

1,045 

10,452 

2.947Ei6 

960 

5 

23.77 

2,358 

1,045 

10,444 

2.945E+6 

930 

6 

23.77 

2,358 

1,045 

10,448 

2.946E+6 

960 

7 

23.77 

2,358 

1,045 

10,447 

2.946E+6 

920 

8 

23.77 

2,358 

1,045 

10,447 

2.945E+6 

920 

Ave . 

.  23.77 

2,358 

1,045 

10,448 

2.946E+6 

946.25 

Table  3  Packet  length  270  bytes 


Experiment  2  is  similar  with  experiment  1  except  that  at  at  each  transmission 
time  there  is  no  data  (packet)  pass  from  the  host  memory  to  the  adapter  buffer; 
instead  the  packet  (data)  resides  in  the  adapter  buffer  and  a  transmission  command 
is  issued  to  the  adapter.  For  experiment  2,  as  in  experiment  1,  we  wait  until  the 
packet  is  successfully  transmitted  before  a  new  transmission  command  is  generated. 
The  readings  from  the  network  analyzer  are  reported  in  Tables  4-6  for  various  packet 
lenght  sizes.  A  comparison  between  Tables  1-3  and  4-6  shows  the  obvious  fact  that 
the  transmission  speed  of  the  adapter  with  no  data  pass  from  host  memory  to  the 
adapter  is  approximately  twice  its  transmission  speed  when  data  pass  from  host 
memory  to  network  adapter  is  involved. 


Peak  or 
Average  % 

Peak  or 

Ave.  kbits/s 

Peak  or 

Ave.  frms/s 

Total 

Frames 

Total 

Bytes 

Packet  elapsed 
Time  (usee.) 

1 

35.86 

3, 5S8 

4,942 

49,426 

4.448E+6 

220 

2 

35.86 

3,558 

4,942 

49,432 

4.449E+6 

200 

i 

35.87 

3,559 

4,943 

49,421 

4.448E+6 

190 

4 

35.87 

3,559 

4,943 

49,417 

4.448E+6 

220 

5 

35.87 

3,559 

4,943 

49,418 

4.448E+6 

190 

6 

35.86 

3,559 

4,942 

49,404 

4.446E+6 

200 

7 

35.87 

3,559 

4,943 

49,396 

4.446E+6 

190 

8 

35.87 

3,559 

4,942 

49,410 

4 .447E+6 

190 

Ave 

.  35.87 

3,559 

4,943 

49,417 

4 .448E+6 

20C 

Table  4  Packet  length  78  bytes 
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Peak  or 

Peak  or 

Peak  or 

Total 

Total 

Packet  elans ed 

Average  % 

Ave.  kbits/s 

Ave.  frms/s 

Frarr.es 

3ytes 

Time  (usee.) 

1 

48.82 

4,344 

3,932 

39,302 

6. 0532*6 

260 

2 

48.82 

4,844 

3,932 

39,295 

6 .05IE+6 

250 

3 

48.81 

4,843 

3,931 

39,230 

6.0512*6 

260 

A 

48.81 

4,843 

3,931 

39,301 

6.0522+6 

260 

5 

48.81 

4,843 

3,931 

39,306 

6.0532+6 

250 

6 

48.81 

4,843 

3,931 

39,294 

6.0512+6 

260 

7 

48.81 

4,843 

3,931 

39,287 

6.0502+6 

250 

8 

48.81 

4,843 

3,931 

39,303 

6.0532+6 

250 

Ave 

.  48.81 

4,843 

3,931 

39,298 

6.0522+6 

255 

Table 

5  Packet  length  142  bytes 

Peak  or 

Peak  or 

Peak  or 

Total 

Total 

Packet  elapsed 

Average  % 

Ave.  kbits/s 

Ave .  f  rms/s 

Frames 

3ytes 

Time  (usee.) 

l 

63.98 

6,348 

2,814 

28,122 

7.9302+6 

380 

2 

63.98 

6,348 

2,814 

28,135 

7.9342+6 

350 

3 

63.98 

6,348 

2,814 

28,110 

7.9272+6 

350 

4 

63.98 

6,349 

2,814 

28,114 

7.928E+6 

350 

5 

63.98 

6,348 

2,814 

28,135 

7.9342+6 

350 

6 

63.98 

6,348 

2,814 

28,126 

7.9322+6 

.  350 

7 

63.98 

6,348 

2,814 

28,134 

7.9342+6 

350 

8 

63.98 

6,349 

2,814 

28,126 

7.9322+6 

360 

Ave. 

63.98 

6,348 

2,814 

28,125 

7.931E+6 

355 

Table  6  Packet  length  270  bytes 


3.  EXPERIMENTS  3  and  4 

This  experiment  has  been  carefully  prepared  to  monitor  every  packet  transmit¬ 
ted.  Two  numbers  are  marked  on  each  packet.  Each  number  is  a  byte  on  the 
packet  data  space.  The  first  number  is  the  14th  byte  and  the  second  number  is  the 
16th  byte.  The  first  number  corresponds  to  the  identity  of  the  packet  that  requests 
transmission  via  the  adapter  on  to  the  network.  A  packet  with  identity  x  will  be 
called  packet  x.  The  difference  between  the  second  number  and  the  first  number 
corresponds  to  the  number  of  packets  that  have  been  submitted  to  the  adapter  for 
transmission,  whose  transmission  process  has  been  interrupted  by  a  stop  command. 
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This  experiment  is  performed  in  a  series  of  steps: 

Step  1.  If  packet  n  (n  >  1)  is  generated  by  the  HP  computer,  check  the  bits  COL, 
ABT,  OWC  or  PTX  of  the  NICSR-register.  (The  meaning  of  these  bits  is  provided 
in  Appendix  A). 

Step  2.  If  any  of  the  bits  COL,  ABT, OWC  is  set  (=1)  or  the  bit  PTX  is  reset  (=0), 
it  means  that  the  previous  packet  (i.e.,  packet  n  -  1)  submitted  to  the  adapter  has 
not  been  successfully  transmitted  yet.  Then,  issue  a  stop  command  and  wait  until 
it  becomes  effective. 

Step  3.  When  the  stop  command  for  packet  n  —  1  becomes  effective  submit  packet 
n  to  the  adapter  and  issue  a  transmit  command. 

A  packet  that  is  submitted  to  the  adapter  for  transmission  waits  for  two  distinct 
time  periods  before  its  transmission  is  considered  complete.  The  first  time  period 
is  the  interval  [fo.fi]  and  the  second  time  period  is  the  interval  where  the 

parameters  <01*11*2  have  the  following  meaning: 

1)  *0  :  The  time  of  issuing  a  transmit  command  or  beginning  of  the  waiting  for  the 
next  retry.  Any  packet  that  suffers  a  collision  returns  to  this  point. 

2)  *i  :  The  time  at  which  packet  transmission  starts;  this  is  the  time  at  which  the 
adapter  starts  placing  the  first  bit  of  the  packet  on  the  network  cable. 

3)  <2  :  The  time  at  which  packet  transmission  ends;  this  is  the  time  at  which  the 
adapter  places  the  last  bit  of  the  packet  on  to  the  network  cable. 

An  important  question  to  answer  when  we  try  to  stop  the  transmission  of  a 
packet,  that  has  already  been  submitted  to  the  adapter,  is  when  the  stop  command 
becomes  effective.  It  was  our  belief,  from  the  very  beginning,  that  if  the  stop 
comm  nd  is  issued  in  the  time  period  [fi,*:)  it  becomes  effective  after  *2;  in  other 
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words  we  believed  that  we  could  not  stop  the  transmission  of  a  packet  whose  bits 
have  already  been  placed  by  the  adapter  on  to  the  network  cable.  On  the  contrary, 
we  thought  that  if  the  stop  command  was  issued  in  the  time  period  [to,<i)  we  could 
stop  the  transmission  of  a  packet  already  submitted  to  the  network  adapter.  Due 
to  the  above  observations,  we  conducted  two  experiments. 

In  experiment  3a,  a  computer  (HP)  sent  ten  packets  with  random  interarrival 
time.  All  packets  were  received  by  the  network  analyzer.  We  observe,  from  exper¬ 
iment  3a,  that  the  second  number  (16th  byte)  of  packet  arrivals  323  and  324  are 
the  same.  This  means  that  packet  02  (i.e.,  packet  arrival  324)  came  prior  to  the 
successful-transmission  of  packet  01  (i.e.,  packet  arrival  323)  and  we  tried  to  stop 
the  transmission  of  packet  01.  Since,  we  received  packet  01  it  seems  that  we  were 
unable  to  do  so.  But  if  we  observe  the  time  difference  between  the  arrivals  of  packet 
02  and  01  at  the  network  analyzer  (  only  400  ps)  the  reason  might  have  been  that 
packet  02  a%ived  in  the  time  period  jti,  f2)  of  packet  01. 


EXPERIMENT  3a 


"  '"1323  ‘  '  Elapsed  0:00 :02. 92126  Den  78  Filters  0 .  No  error 

Destination  02-60-8C-01-02-03  Source  02-60-8C-0F-EA-88 
DATA  00 

15  00- 00-00-00-04 -05-0 6-04 -03-09-0 A-OB-OO-OO-O 1-00-01 

>324  Elapsed  0:00:02.92166  Den  78  Filters  0 .  No  error 

Destination  02-60-8C-01-02-03  Source  02-60-8C-0F-EA-88 
DATA  00 

15  00-00-00-00-04-05-06-04-08-09-OA-OB-00-00-02-00-01 

#325  Elapsed  0:00:02.92211  Den  78  Filters  0 .  No  error 

Destination  02-60-8C-01-02-03  Source  02-60-8C-0F-EA-88 
DATA  00 

15  00-00-00-00-04-05-0 6-04 -08-09-0A-0B-00-00-03-00-02 
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So,  we  performed  another  experiment  to  investigate  the  possibilty  of  stopping  a 
packet's  transmission,  provided  that  the  stop  command  is  issued  during  the  [to,ii] 
time  period  of  the  packet.  In  this  experiment  (experiment  3b)  a  computer  (source 
02-60-8C-OF-EA-88)  produced  100  packets  for  transmission  with  random  interar¬ 
rival  time  between  packets.  Furthermore,  another  computer  (source  02-CF-1F-30- 
27-95)  sent  packets  continuously  with  random  interpacket  time  and  random  packet 
lenghts.  Let  us  take  three  packet  arrivals  16,22  and  23  corresponding  to  consecutive 
packets  (packets  01,  02  and  03)  emanating  from  the  same  computer  (source  02-60- 
8C-0F-EA-88).  The  second  number  (16th  byte)  for  these  packets  is  the  same.  This 
implies  that  the  packet  02  came  prior  to  the  successful  transmission  of  the  packet 
01  and  we  tried  to  stop  the  transmission  of  the  packet  01;  similarly,  the  packet 
03  came  prior  to  the  successful  transmission  of  packet  02  and  we  tried  to  stop  the 
transmission  of  the  packet  02.  The  difference  in  the  arrival  time  between  packets 
03  and  02  is  only  380  /is  while  the  difference  bettween  the  arrival  times  of  packets 
02  and  01  is  approximately  0.25s.  As  a  result,  it  is  highly  likely  that  the  packet  03 
came  during  the  (<o,  1  interval  of  packet  02.  According  to  the  experimental  results 
we  tried  to  stop  the  transmission  of  packet  02  and  we  were  not  successful.  The  stop 
command  was  issued  while  packet  02  was  in  his  [to,  <i)  waiting  period.  In  conclusion, 
from  experiments  3a  and  3b  we  deduce  that  we  cannot  stop  the  transmission  of  a 
packet  that  has  already  been  submitted  to  the  adapter  for  transmission. 
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EjEFERlHEST  3  b 


#16  Elapsed  0:00:02.61190  ten  73  Filters  C _ Ho  error 

Destination  02-60-3C-01-02-03  Scarce  02-60-3C-0F-EA-33 

DATA  00 

15  00-0»-00-00-04-05-06-04-03-09-OA-C3-00-CO-01-00-01 

#17  Elapsed  0:00:02. 69490  ten  102  Filters  0 _ Ho  error 

Destination  FF-FF-FF-FF-FF-FF  Source  02-CF-1F-30-27-95 

#18  Elapsed  0:00:02.69516  ten  102  Filters  0.........  Ho  error 

Destination  FF-FF-FF-FF-F="-FF  Source  02-CF-1F-30-27-95 

#19  Elaosed  0:00:02.69735  Len  102  Filters  0 . Ho  error 

Destination  FF-FF-FF-FF-FF-FF  Source  02-CF-1F-30-27-95 

#20  Elapsed  0:00:02.70123  ten  102  Filters  0.........  Ho  error 

Destination  FF-FF-FF-FF-FF-FF  Source  02-CF-1F-30-27-95 

#21  Elapsed  0:00:02.70304  Len  102  Filters  0 . Ho  error 

Destination  FF-FF-FF-FF-FF-FF  Source  02-CF-1F-30-27-95 

122  Elapsed  0:00:02.36253  ten  78  Filters  0 . Ko  error 

Destination  02-60-8C-01-02-03  Source  02-60-SC-OF-EA-33 

DATA  •  00 

15  00-00-00-00-04-05-06-04-08-09-OA-03-00-00-02-CO-01 


#23  Elapsed  0:00:02.86291  Len  78  Filters  0 . Ko  error 

Destination  02-60-8C-01-02-03  Source  02-60-SC-OF-EA-33 
DATA  00 

15  00-00-00-00-04-05-06-04-08-09-OA-03-00-00-03-00-01 


Experiment  4  is  similar,  in  certain  respects,  with  experiment  3.  For  example, 
the  14th  byte  of  a  packet  (  first  number)  indicates  the  packet’s  identity,  while  the 
difference  between  this  number  and  the  16th  byte  (second  number)  indicates  the 
number  of  packets  whose  transmission  we  attempted  to  stop.  In  experiment  4,  we 
do  not  try  to  stop  a  packet’s  transmission  under  any  circumstances.  Hence,  the 
first  and  the  second  number  (14th  and  16th  bytes)  in  this  experiment  are  always 
the  same.  In  experiment  4,  if  the  identity  of  the  packet  is  an  odd  number  we  wait 
until  the  transmission  of  the  previous  packet  is  complete  and  then,  we  submit  the 
packet  to  the  adapter  and  we  issue  a  transmit  command;  the  only  exception  to  this 
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rule  is  packet  OX  for  which  we  do  col  wait  since  it  is  tbs  erst  packet  generated  by 
the  computer.  If  the  identity  of  a  packet  is  an  even  number  we  do  not  wait  until 
the  completion  of  the  previous  packet’s  transmission,  but  we  replace  the  old  packet 
with  the  even  numbered  packet  and  we  issue  a  transmit  command.  Our  results  are 
depicted  below. 


exfehimfht  4 

§37  Elaosed  0:00:03.43539  Len  73  Filters  0 . Ho  error 

Destination  02-60-8C-01-02-03  Source  02-60-8C-0F-FA-88 
DATA  00 

15  00-00-00-00-04-05-08-04-08-05-08.-08-00-00-01-00-0! 

»3=  Flaosed  0:00:03.43573  Len  158  Filters  0 . 5*"o  error 

Destination  02-80-8C-01-02-03  Source  O2-60-3C-0F-3A-88 
DATA  0C- 

15  00-00-00-00-04-05-06-04-08-09-08-03-00-00-04-00-04 

:  :  :  :  : 

100  O7-OS-09-0A-03-OC-00-64-00-64-11-12-13-14-15-16-17 

*35  Elansed  0:00:03.43626  ten  73  Filters  0 . Ko  error 

Destination  02-60-8C-01-02-03  Source  02-60-3C-0F-3A-38 
DATA  00 

15  00-00-00-00-0 4 -05-06-04 -08- 09-0 A-03-00-00-05-00-05 


. .  We.  observe  from  the  above  results  that  we  receive  packets  01  and  04  and  we 
miss  packets  02  and  03.  If  the  replacement  action  works  and  packet  02  came  in  time 
to  replace  packet  01  then,  we  should  have  received  packet  02  and  not  packet  01.  If 
instead  packet  02  did  not  come  in  time  to  replace  packet  01,  we  should  have  received 
both  packets  (i.e.,  01  and  02).  Hence,  the  results  indicate  that  packet  02  came  in 
time  to  replace  packet  01,  but  the  replacement  action  did  not  work.  Furthermore, 
since  the  time  difference  between  the  arrival  times  of  packet  04  and  01  is  only  400 
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fts  tee  are  conSdeu t  that  packet  02  arrived  in  the  {to,  f  i  J  thee  period  o:  packet  01. 
4.  CONCLUSIONS 

We  conducted  some  experiments  to  compute  the  maximum  transmission  speed 
of  the  3Com  ETHERLINK  II  adapter  with  data  pass  and  without  data  pass 
from  the  host  (Vectra  HP/20C  computer)  memory.  We  found  that  the  adapter 
transmission  speed  is  doubled  if  no  data  pass  from  host  memory  to  adapter  buffer 
is  required.  The  complete  results  are  shown  in  Tables  1-6. 

We  also  investigated  the  pcssibilty  of  stopping  the  transmission  of  a  packet  that 
has  already,  beeen  submitted  to  the  network  adapter  (experiment  3).  Furthermore, 
we  examined  the  possibility  of  replacing  an  old  packet,  already  submitted  to  the 
adapter  for  transmission,  with  a  new  packet  from  the  host  memory  (experiment 
4).  We  found  that,  the  3Com  ETHERLINK  II  adapter  does  not  allow  cither  the 
stopping  of  the  transmission  of  a  packet  or  the  replacement  of  a  packet  already 
submitted  to  the  network  adapter. 

APPENDIX  A 


Bit  # 

Mnemonic 

Description 

0 

PTX 

Indicates  packet  transmitted  with  no  error. 

2 

COL 

Indicates  that  the  transmission  collided  at 
least  once  with  another  station  on  the 
network. 

3 

ABT 

Indicates  the  NIC  aborted  transmission 
because  of  excessive  collisions. 

7 

owe 

Indicates  that  a  collision  occurred  after  a 
slot  time  (51.2  us). 

</ 


:  cstrxi  -  jis=  -  Th-s  prograc  si sply  send  pac-.ct&  continiivudy  on  JCsOJ  adapte 
using  3L  interface.  Each  packet  transnission  has  packet  data 
:  passed  froa  the  host  nenory  onto  the  adapter  buffer- 

;  **  IIOTE:  **  To  allow  this  pregraa  to  end  cleanly 

!  added  sawees  and  fixvecs  routines  to  preserve  vectors  that 

j  could  possibly  be  changed. 

;  This  allows  3L  interrupt  hooks  to  be  undone  so  3L  can  be  used 

i  in  an  executable  pregraa  rather  than  just  a  peraanent  driver. 


•define  3L  functions 


xtm 

InitParaaaters: near 

extrn 

InitAdapters : near 

extm 

KhoAal inear 

xtm 

ResetAdapter : near 

xtm 

RaRxFilter : near 

extrn 

KrRxFilter :near 

'.xtm 

GetSxData : near 

xtm 

SetLookAhead : near 

extm 

PutTxData : near 

xtm 

SetTine:near 

.extm 

TineOutrnear 

extm 

Ticks: word 

•xtm 

Srand:near 

extrn 

Rand: near 

extm 

Waiting: near 

public 

RxProcess 

public  ExitRcvInt 


.  so  these' 11  be  in  nap  for  debugging 

public  argstr,  crlf,  retsav,  pkthd,  wbf,  xntpk,  fnprnt 
mblic  xraitl,  revsone,  dowho ,  sawees,  fixvecs,  dnprt,  prx,  wtoa 


If 

equ 

Oah 

or 

equ 

Odh 

jiinsec 

equ 

60d 

NUMXMIT 

equ 

lOOd 

total  packets  transnitted 

/Ha 

JAITIME 

equ 

16d 

■ur.it  ir.  usee. 

/Ma 

lANDRANGE  equ 

lid 

upper  limit  of  random  number 

/Ha 

KODUNUM 

equ 

lOd 

modular  number  with  count 

/Ha 

fTIHElO 

equ 

lOd 

interfrarae  time  w/pass  64 

data  bytes  /Ma 

[TIME20 

equ 

Id 

"  ”  «  128 

II 

II 

/Ha 

FTIHE30 

equ 

la 

"  "  ”  256 

It 

tt 

/Ha 

Sprint 

macro 

strloc 

;print  string  at  strloc 

f 

local 

strloc 

push 

cx 

lea 

dx, strloc 

mov 

ah,09h 

int 

21h 

pop 

cx 

endm 

Okbdin 

macro 

;get  kbd  char  in  ai 

mov 

ah,  8 

Air; 

1 


rkbdchk 

macro 

; check  for  kfcd  char 

mov 

ah,Obh 

int 

ends 

21h  ;returns  al:  O-nokey,  ff-keyhit 

prx 

macro 

len,  dat  ; print  hex  data  in  word  dat,  len  =  1 

; don't  put  data  in  ax 

r.ov 

ax, len 

push 

ax 

sov 

ax, dat 

push 

ax 

call 

prx 

add 

enda 

sp,4 

“dcprt 

macro 

buf,adr,len  ;hex  dump  a  data  area 

aov 

ax, len 

push 

ax 

mov 

ax,adr 

push 

ax 

mov 

ax,buf 

push 

ax 

call' 

daprt 

add 

endn 

sp,6 

M 

Q 

O 

GROUP 

DATA,  RCODE,  STACK 

DATA 

SEGMENT 

WORD  PU3LIC 

.DOS  driver  ini 

t  request  header  format 

ini_hd 

struc 

db 

23  ;hdr  len 

db 

0 

db 

0  ?init  crad 

stat 

dw 

0 

db 

8  dup  (0) 

db 

o  ;num  units  (not  used) 

cdend 

dd 

0  ;code  end  set  here 

»rgo 

dw 

0  ;arg  offset 

irgs 

dw 

o  ;arg  segment 

db 

0 

‘.ni_hd 

ends 

; -  adapter  parameter  setup  string  - - 

:  this  would  come  from  'device^'  on  real  driver  init 

irgstr  db  "bs.sys  /A:300  /D:l  /i:3",lf 


; -  fake  driver  init  request  header  for  InitParameter 


ih 

ir.i_hd 

,offset 

CODE:argstr,seg  C0DE,> 

vectsv 

dd 

22h  dup  (0) 

; save  all  vectors  so  we 

:WhoAmI 

adapter 

info  structure 

ad_info 

struc 

ea 

db 

6  dup(0) 

;enet  addr 

/erl 

db 

0 

.•major  ver 

A-2 

input 


can  cleanup 


•:b 

t 

;  t. '/;.•«* 

jcyp 

db 

0 

; adapter  type 

astat 

db 

0 

;adapter  status 

bfrs 

db 

0 

jbuffer  fl  s 

-tx  b 

db 

0 

jnumber  of  xmit.  buffers 

sxb 

dv 

0 

;xnit  buffer  size 

xntc 

dd 

0  . 

;xpit  count 

xate 

dd 

0 

;xnit  errs 

xctto 

dd 

0 

;xnit  timeouts 

rcvc 

dd 

0 

;rcv  count 

rcvbc 

dd 

0 

;  beast  rev,  count 

rcve 

dd 

0 

;rcv  eixs 

rtc 

dd 

0 

; retry  count 

xfmd 

db 

0 

;xfer  node  flags 

rftnd 

db 

0 

;wait  node  flags 

extp 

2d_info 

dw 

ends 

0 

; extension  pointer 

; program  messages 

crlf 

db 

cr,lf , '$' 

rvnsg 

db 

"tst31  load  point:  $" 

'IPnsg 

db 

“InitParameters  returns:  $" 

lAnsg 

db 

"InitAdapters  returns:  $" 

'•JAmsg 

db 

"WhoAnI  returns:  $" 

SFnsg 

db 

"WrRxFilter  returns:  $" 

LAmsg 

db 

"SetLookAhead  returns:  $" 

GEmsg 

db 

"GetRxData  error  return:  $n 

ZPmsg 

db 

If /'Zero  length  packet" ,cr, If , '$' 

PAr.sg 

db 

"Press  any  key  to  continue" ,cr,lf , '$' 

RSmsg 

db 

"Starting  packet  receive...  any  key  to  end",cr,lf , 

SEr.sg 

db 

"Stopping  receive",cr,lf , '$' 

;Lmsg 

db 

HFnsg 

db 

"  -  s« 

FNnsg 

db 

"Select  function,  r  for  reev,  t  for  xrait: 

XMmsg 

db 

"Sending  1  packet" ,cr, If , '$' 

XRnsg 

db 

"PutTxData  returns:  $" 

XMreq 

db 

"Transmision  of  packets  has  four  options:",cr,lf 

db 

»  0.  Exit", cr, If 

db 

"  1.  Transmit  78  byte  packets  without  data  pass." ,cr,lf 

db 

"  2.  Transmit  142  byte  packets  without  data  pass.",cr,lf 

db 

"  3.  Transmit  270  byte  packets  without  data  pass.",cr,lf 

; 

db 

"  4.  Transmit  the  longest  packet  without  data  pass." ,cr, 

If 

db 

cr,lf 

db 

"Enter  your  choise: 

;Ma 

XMmsg 1 

db 

"Sending  78  bytes  packets  for  10  seconds  sampling  w/D" 

;Ma 

db 

cr.lf , '$' 

;Ma 

XMir.sg2 

db 

"Sending  142  bytes  packets  for  10  seconds  samplinq  w/D" 

;Ma 

db 

cr,lf , 

;Ma 

XMmsg3 

db 

"Sending  270  bytes  packets  for  10  seconds  sampling  w/D" 

;Ma 

db 

cr, If , '$' 

;Ma 

XMmsg4 

db 

"Sending  long  packets  for  one  minite  without  data  pass" 

;Ma 

db 

cr,lf , '$' 

;Ma 

WOOwsg 

db 

"WhoAml  DATA  -",cr,lf , 'S' 

XOlmsg 

db 

"  ■  enet  addr  :  $" 

A-3 


Cf 

54  vc; 

irr.t; 

«f 

pint!  vt»r 

<<* 

■  ’■zag 

;;uh  ver 

JOtfZisg 

db 

" 

type  ver 

S” 

W06*ss<j 

db 

tl 

adapter  type 

5" 

V07»sg 

db 

II 

adapter  status 

S” 

■J08nsg 

db 

II 

buffer  flags 

$" 

W09=sg 

db 

fl 

number  of  xnit  buffers 

$M 

wiOcsg 

db 

II 

xnit  buffer  site 

$" 

•Jllasc. 

db 

II 

wait  count 

$" 

f,’12msq 

do 

II 

xnit  errs 

S" 

Wl3nsg 

db 

II 

xnit  timeouts 

$” 

■J14  csg 

db 

II 

rev  count 

$" 

.4l5nsg 

db 

II 

beast  rev  count 

$" 

Wl6nsg 

db 

II 

rev  errs 

$" 

'417asa 

db 

II 

retry  count 

$" 

418bsq 

db 

It 

xfer  node  flags 

$" 

Wl9nsg 

db 

II 

wait  node  flags 

$" 

W20Ksg 

db 

II 

extension  pointer 

$" 

;  nisc 

paraneters 

retsav 

dw 

7 

jegval 

dw 

7 

:off 

dw 

7 

erred 

db 

0 

Jklock  db  0 

pklen  dw  o 

okerr  dw  o 

ikcnt  dw  0 

pkcount  dw  o 

;avax  dw  ? 

.•receive  buffer 

okthd  db  32  dup(O)  .’packet  header  portion  for  SetLookAhead 

-•pktdat  db  1500  dup(0)  ;  remainder  of  pkt  buffer  /closed  by  Ha 

; Who An I  buffer 

■:bf  ad_info  <>  ;WhoAmI  buffer 

;****************  ready  packet  data  ************************* 


•transmit  64  data  byte  packet 
xratpk  label  byte 


desta 

;orca 

plen 

pdata 


db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 


.:plen  dw 


02h,60h,8ch,0lh,02h,03h  .-arbitrary  dest  addr 

O0h,00h,00h,0fh,0fh,0fh  .-source  addr  -  fill  from  who  ea 

0,64  .-packet  length 

ooh , ooh , OOh , OOh , 04h , 05h , 06h , 07h 

08h,09h, Oah , Obh , Och , Odh , Oeh , Of h 

I0h,ilh,12h,i3h,l4h,i5h,l6h,l7h 

I8h , I9h , lah , lbh , lch , idh , leh , if h 

20h,21h,22h,23h,24h,25h,26h,27h 

28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

30h, 31h, 32h , 33hj  34h , 35h , 36h , 37h 

38h,39h,3ah,3bh,3ch,3dh,3eh,3fh 


$-xmtpk 


; packet  len 


****************  ready  packet  data  ************************* 

A-4 


! 


i 


•irwsrit  1  .:8  J.sta  byte  packet 
:atp! c2  iabel  byte 

desra2  db  02h,60ii,8ch,01h,02h,03h  .-arbitrary  dest  addr 

sorca2  db  00h,00h,00h,0fh.0fh,0fh  .-source  addr  -  fill  fron  who  ea 
jlen2  db  0,128  .-packet  length 

pdata2  db  00h,00h,00h,00h,04h,05h,06h,07h 

db  08h , 09h , Oah , Obh , Och , Odh , Oeh , Of h 

db  10h,llh,12h,13h,14h,15h,16h,17h 

db  I8h , I9h , lah , lbh , lch , idh , leh , if h 

db  20h,21h,22h,23h,24h,25h(26h,27h 

db  28h(29h,2ah,2bh,2ch<2dh,2eh,2fh 

db  30h,31h,32h,33h(34h,35h(36h,37h 

db  38h , 39h , 3ah , 3bh , 3ch , 3dh , 3eh , 3  f h 

db  00h,01h,02h,03h,04h,05h,06h,07h 

db  08h , 09h , Oah , Obh , Och , Odh , Oeh , Of h 

db  lOh ,  Uh ,  I2h ,  I3h ,  I4h,  I5h ,  I6h ,  I7h 

db  18h , 19h , lah , lbh , lch , Idh , leh , 1 f h 

db  20h,21h,22h,23h,24h,25h,26h,27h 

db  28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2fh 

db  30h,31h/32h/33h,34h,35h,36h,37h 

db  38h.39h.3ah, 3bh , 3ch , 3dh , 3eh, 3f h 

.:plcn2  dw  $~xatpk2  ;  packet  len 

*****************  iready  packet  data  ************************* 

: transmit  256  data  byte  packet 
~mtpk3  label  byte 

lesta3  db  02h,60h,8ch,0lh,02h,03h  arbitrary  dest  addr ' 

sorca3  db  ooh.ooh.ooh.ofh.ofh.ofh  ;source  addr  -  fill  from  who  ea 

nlen3  db.  0,255  .-packet  length 

)data3  db  ■  ooh,ooh,ooh,ooh,04h,05h,06h,07h 

db  08h , 09h , oah , Obh , Och , Odh , oeh , Of h 

db  lOh, llh, I2h, I3h, I4h, 15h,16h, I7h 

db  1 8h , 19h , lah , lbh , lch , idh , leh , 1 f h 

db  20h,21h,22h,23h,24h,25h,26h,27h 

db  28h, 29h, 2ah, 2bh , 2ch , 2dh , 2eh , 2f h 

db  30h, 31h, 32h, 33h, 34h, 35h, 36h, 37h 

db  38h,39h,3ah,3bh,3ch,3dh,3eh,3fh 

db  OOh, Olh, 02h, 03h, 04h, 05h, 06h, 07h 

db  08'n ,  09h ,  oah ,  Obh ,  Och ,  Odh ,  oeh ,  Of  h 

db  I0h,llh,i2h,13h,14h,15h,16h,17h 

db  I8h,19h,lah,lbh,lch,ldh,ieh,lfh 

db  20h,21h,22h,23h,24h,25h,26h,27h 

db  28h, 29h, 2ah, 2bh , 2ch , 2dh , 2eh , 2f h 

db  30h, 31h, 32h, 33h, 34h, 35h, 36h, 37h 

db  38h,39h,3ah,3bh,3ch,3dh,3eh,3fh 

db  ooh , Olh , 02h , 03h , 04h , 05h , 06h , 07h 

db  08h ,  09h , Oah , Obh , Och , Odh, Oeh , Of h 

db  lOh,  Uh,i2h,l3h,l4h,iSh,i6h,l7h 

db  18h , 19h , lah , lbh , lch , Idh, leh , If h 

db  20h, 21h , 22h,23h, 24h, 25h,26h, 27h 

db  28h,29h,2ah,2bh,2ch,2dh,2eh,2fh 

db  30h , 31h, 32h, 33h,34h, 35h, 36h, 37h 

db  38h , 3  9h , 3ah , 3bh , 3ch , 3dh , 3eh , 3  f h 

db  00h,01h,02h,03h,04h,05h,06h,07h 

db  08h,09h,oah,obh,0ch,0dh,0eh,0fh  .  .. 

db  10h,llh,12h,13h,14h,15h,l6h,17h 

db  I8h , I9h , lah , lbh , lch , Idh , leh , if h 
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0 

db 

.’Oh ,  2 1  h ,  ill .  .Mb , .  Mi ,  ->•  h , ’h 

db 

28h  ,,2‘h ,  2ah,.:hh ,  .:eh ,  .'til* ,  ,  .1  h 

db 

J0h,31h,32h,  JJh.  J4.<i,  3Mi,  J6h,  J.'h 

db 

38h , 39h , 3ah , 3bh , 3ch , 3dh , 3eh . 31 h 

xplen3 

dw 

S-xntpk3  .-packet  len 

; transnit  largest  packet,  new  data  area/Ma 

,-xntpki 

label 

byte 

;destal 

db 

02h,60h,8ch,01h,02h,03h  .-arbitrary  dest  addr 

.;sorcal 

db 

00h,00h,00h,0fh,0fh,0fh  isource  addr  -  fill  from  who  ea 

;plenl 

dw 

0,1500  ; packet  length 

;pdatal 

dw 

187  dup  (0001h,0203h,0405h,0607h,0809h,0a0bh,0c0dh,0e0fh) 

'• 

dw 

0ffllh,0ffl3h 

;xplenl 

dw 

$-xntpkl  ; packet  len 

hour 

db 

0 

rain 

db 

0 

sec 

db 

0 

count 

dw 

0 

funcnun 

db 

0 

sunrd 

dw 

0 

DATA 

ENDS 

STACK 

SEGMENT 

STACK 

STACK 

ENDS 

RCODE 

SEGMENT 

WORD  PUBLIC 

assume 

cs:code,  ds:code 

main  routine 


tstrxl  proc 

near 

mov 

ax , CODE 

mov 

ds,ax 

nov 

es,ax 

mov 

ax,cs 

mov 

;  mov 

segval.ax 

toff, offset  CODE:tst31  ;Ma 

mov 

toff, offset  CODErtstrxl  ;Ma 

Sprint 

Sprx 

Sprint 

Sprx 

Sprint 

Sprint 

Skbdin 

TVmsg  ,-print  prog  load  addr 

4 , segval 

CLmsg 

4, toff 
crlf 

PAmsg  ,-wait  for  key 

;  ...  get  it 

call 


;save  a  bunch  ,of  vectors  for  later 


mov  bx, offset  CODE:ih  ;fake  driver  init  request  buffer 
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-  *■  **.**-+*  +  +  ♦♦*  +  ****  +  *  +  * 


call  lai tParanocern 

;  ******  ***  *** ***  ******  * 
bov  retsav, ax 

Sprint  IPmsg. 

Sprx  4 , retsav 

Sprint  crlf 
bov  ax, -retsav 

or  ax, ax 

jz  init_ok 

nov  al,l 
jap  oout 


init_ok: 

bov  di, offset  CODErRxProcess 

•  ********************** 

call  InitAdapters 
•  ********************** 
nov  retsav, ax 

Sprint  lAasg 
Sprx  4, retsav 

Sprint  crlf 
mov  ax , retsav 

or  ax , ax 

jz  ia_ok 

bov  erred , 2 
jap  uninit 

ia_ok: 


call 

dowho  ;call  WhoAal  and 

list  result 

;  SetLookAhead  is  not  required  but 

added 

for  reference 

xor 

dl,dl  ; adapter  0 

mov 

cx,32  ;LookAhead 

size 

•  ********************** 

call 

SetLookAhead 

•  ********************** 

BOV 

retsav, ax 

Sprint 

LAasg 

Sprx 

4, retsav 

Sprint 

crlf 

BOV 

ax, retsav 

or 

ax,  ax 

jz 

la_ok 

BOV 

erred, 4 

jap 

uninit 

la_ok: 


mov 

pkcount.O 

xor 

dl,dl 

.•adapter  0 

mov 

ax,Olh 

?set  filter  board  address 

mov 

ax,0ch 

;set  .filter  to  promis/bcast 

;  ********************** 
call  WrRxFilter 
•  ********************** 
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rev 

!  f't  :•  iv ,  ‘.X 

t'print 

WKasg 

Oprx 

4 .retsav 

Sprint 

crlf 

nov 

ax, retsav 

or 

ax,  ax 

jz 

wf_ok 

mov 

erred,  5 

jnp 

uninit 

wf _ok : 


;do  xait  or  rev  per  user  input 

fnprrat: 


Sprint 

FNnsg 

Skbdin 

;get  input  selection 

push 

ax 

Sprint 

crlf 

pop 

ax 

cap 

al,'r' 

f  je 

doreev 

;Ma 

je 

jdoreev 

,-Ma 

enp 

al, 't' 

je 

doxnt 

;Ha 

;  jne 

fnprmt 

;Ma 

jmp 

fnprat 

;Ha 

jdoreev:  jap 

doreev 

;Ma 

** 

ioxrnt : 

Sprint 

XMreq 

;Ma 

Skbdin 

;Ma, 

get  input  selection 

push 

ax 

;Ha 

Sprint 

crlf 

;Ma 

pop 

ax 

;Ma 

cap 

al, '1' 

;Ma 

je 

doxal 

?Ma, 

transmit  64  byte  packets  with 

data 

pass 

emp 

al, '2' 

?Ma 

je 

jdoxa2 

;Ma, 

transmit  128  byte  packets  with 

data 

pass 

emp 

al , '3' 

,-Ha 

je 

jdoxm3 

;M  a, 

transmit  256  byte  packets  with 

data 

pass 

emp 

al,  M' 

;Ma 

je 

jdoxa4 

;Ha, 

transmit  long  packets  without 

data 

pass 

cap 

al, '0' 

;Ma 

je 

juninit 

;Ma, 

end  of  transaision 

jne 

doxmt 

;Ma 

BOV 

errcd.al 

;Ma 

jap 

uninit 

;Ma 

jdoxm2:  jap 

doxm2 

;Ha 

jdoxm3:  jap 

doxa3 

;Ma 

jdoxm4 :  jap 

doxn4 

;Ha 

juninit:  jap 

uninit 

;Ma 

transmit  64  data  byte  packet  continuously  with  data  pass  for  10  seconds 
sampling. 


doxml:  Sprint  XMmsgl  ;Ma 
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ioxml  :  Opr  in: 


ioxml :  ('print 

XMmiiq  1 

;Ma 

iaov 

count, 0 

;Ma,  clear  count 

mov 

funcnum,l 

;Ma,  run  function  number  1 

mov 

cx,MUMXMIT 

repXl: 

push 

cx 

;Ma 

inc 

count 

;Ma 

mov 

ax,count 

;Ma 

mov 

byte  ptr  pdata[0],ah  ;Ma,  mark  packet  number  on  high 

mov 

byte  ptr  pdata[l),al  ;Ma,  .and  low  byte 

doXmitl:  call 

Xraitl 

;Ma,  transmit  one  “canned"  packet 

pop 

CX 

loop 

repXl 

call 

dowho 

;Ma,  list  WhoAmI  result 

mov 

ax , sumrd 

;Ma 

xor 

dx,dx 

mov 

bx,NUMXMXT 

div 

bx 

mov 

bx,ax 

Sprint 

RDlmsg 

Sprx 

4,bx 

Sprint 

RDFmsg 

Sprx 

4,dx 

Sprint 

crlf  . 

jmp 

doxmt 

;Ma 

;  transmit  128 

data  byte  packet  continuously  without  data  pass  for  20  seconds 

;  sampling. 

doxm2 :  Sprint 

XMmsg2 

;Ha 

mov 

count, 0 

;Ma,  clear  count 

mov 

funcnum,2 

;Ha,  run  function  number  2 

mov 

cx.mJMXMlT 

repX2 : 

push 

CX 

inc 

count 

;Ma 

mov 

ax ,count 

;Ka 

mov 

byte  ptr  pdata2[0],ah  ;Ha,  mark  packet  number  on  high 

mov 

byte  ptr  pdata2(lj,al  ;Ma,  and  low  byte 

doXmit2:  call 

Xmitl 

;Ma,  transmit  one  "canned"  packet 

pop 

CX 

loop 

repX2 

call 

dowho 

;Ma,  list  WhoAmI  result 

jmp 

doxmt 

;Ma 

;  transmit  256 

data  byte  packet 

continuously  without  data  pass  for  10  second 

;  sampling 

doxm3:  Sprint 

XMmsg3  ; 

:Ma  .  . 

mov 

count, 0 

;Ma,  clear  count 
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! 

P!OV 

i uncnua , 

•  ;Ha,  run  (unction  nunber  i 

' 

BIOV 

OX ,  riUMXMlT 

'  vpX > : 

push 

cx 

inc 

count 

,-Ma 

mov 

ax, count 

;Ma 

mov 

byte  ptr 

pdata3(0],ah  ;Ma,  mark  packet  number 

on  high 

mov 

byte  ptr  pdata3(l),al  ;Ha,  and  low  byte 

-  doXmit3 

:  call 

Xraitl 

;Ma,  transmit  one  "canned"  short 

packet 

pop 

cx 

loop 

repX3 

call 

dowho 

;Ma,  list  HhoAmI  result 

jmp 

doxmt 

;Ma 

;  transmit  "long  canned" 

packet  continuously  without  data  pass  for  one  minite 

doxm4 : 

Sprint 

XMmsg4 

;Ma 

jmp 

doxmt 

;Ma 

call 

xmitl 

;send  a  packet 

mov 

erred, al 

jmp 

uninit 

dorecv: 

call 

revsome 

(recieve  packets  for  till  key  hit 

mov 

erred, al 

uninit: 

•  ********************** 

call  ResetAdapter 
*  ********************** 


call 

fixvecs 

mov 

al, erred 

oout: 

mov 

ah,4ch 

int 

2lh 

;tst31 

endp 

;Ma 

tstrx2 

endp 

(Ha 

xmitl 

proc 

near 

;  transmit  one  "canned"  packet 
;  ■  Sprint  XMmsg 


;put  our  eaddr  in  xmit  pkt 
mov  ax, word  ptr  wbf.ea 

mov  -word  ptr  sorca,ax 

mov  ax, word  ptr  wbf.ea+2 

mov  word  ptr  sorca+2,ax 

mov  ax, word  ptr  wbf.ea+4 

mov  word  ptr  sorca+4,ax 

; setup  for  PutTxData 
cmp  funcnum,4d  ;Ma 
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; 

:H>t  l 

;Ka 

l  unction,  3d 

;Ma 

sol  3 

;  Ma 

cmp 

funcnura, 2d 

;  Ha 

je 

set2 

;Ma 

cmp 

count.  Id- 

;Ma 

jn2 

notfl 

;Ma 

mov 

dx,60h. 

;req  id  and  wait 

jmp 

short  setl 

;Ma 

lotfl : 

mov 

dx,64h 

;req  id,  wait  and  no  data 

setl: 

mov 

si, offset  CODErxmtpk  ;xmt  pkt  buffer 

mov 

bx,xplen 

;set  lengths 

mov 

cx,bx 

jmp 

setnoTx 

;Ma 

;et2: 

cmp 

count, Id 

;Ma 

jr»2 

notf2! 

,-Ma 

mov 

dx,60'h 

;req  id  and  wait 

jmp 

short  seto2 

;Ma 

notf2: 

mov 

dx ,  6'i'h 

;req  id,  wait  and  no  data 

;eto2 : 

mov 

si,c'ffset  CODE:xmtpk2  ;xmt  pkt  buffer 

mov 

bx,xplen2 

;set  lengths 

mov 

cx,bx 

jmp 

setnoTx 

,-Ma 

set3: 

cmp 

count, Id 

;Ma 

jnz 

not/,‘3 

;Ma 

mov 

dx./loh 

;req  id  and  wait 

jmp 

short  seto3 

;Ma 

iotf3: 

*mov 

dx,64h 

;req  id,  wait  and  no  data 

seto3 : 

mov 

si, offset  CODE : xmtpk3  ;xmt  pkt  buffer 

mov 

bx,xplen3 

;set  lengths 

mov 

cx,bx 

•set4 : 

mov 

di.Offffh 

;no  TxProcess 

setnoTx 

:  mov 

di.Offffh 

;no  TxProcess 

•  ********************** 

call 

PutTxData 

•  ********************** 

mov 

retsav,ax 

Sprint 

XRmsg 

1 

Sprx 

4 ,retsav 

; 

Sprint 

crlf 

mov 

ax,retsav 

ret 

imitl 

endp 

rcvsome 

proc 

near 

/Ma 


/Ma 


/Ma 


;  following  code  to  dump  received  packets  for  a  fixed  time 
Sprint  RSmsg 

:hkpk : 
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V 

EOV 

:ur.vaua.l  :Sjx, 

r  «:.  :  ■:  :  -  :  : 

i epXl : 

push 

cx 

;Ha 

inc 

count 

;Ka 

cov 

ax, count 

;Ka 

nov 

byte  ptr  pdata[0J,££i 

;Ma,  mark  packet  number  on  high 

nov 

byte  ptr  pdata(lj,al 

;Ka,  and  low  byte 

doXmitl:  call 

Xmitl  ;Ka, 

,  transmit  one  “canned"  packet 

pop 

CX 

looo 

repXl 

call 

dowho  ;Ha , 

list  Kiio&sZ  result 

jn? 

doxat  ;Ka 

transmit  128 
;  sampling. 

data  byte  packet  continuously  with  data  pass  for  10  seconds 

oxn2 :  Sprint 

XHmsg2 

;Ka 

luOV 

count, 0 

;Ka,  clear  count 

r.ov 

funcnun,2 

;Ha ,  run  function  number  2 

KOV 

CX, HUMXMIT 

repX2 : 

push 

CX 

inc 

count 

;Ma 

nov 

ax, count 

;Ma 

rcov 

byte  ntr  pda 

ta2[0],ah  ;Ha,  mark  packet  number  on  high 

mov 

byte  ptr  pdata2[l),al  ;Ka  and  low  byte 

doXrait2:  call 

Xmitl 

;Ka,  transmit  one  "canned"  packet 

pop 

CX 

loop 

repX2 

call 

dowho 

;Ha,  list  KhoAnI  result 

jmp 

doxnt 

;Ha 

!  transmit  256- 

data  byte  packet  continuously  with  data. pass  for  20  second 

?  sampling 

loxm3:  Sprint 

XMrasg3 

;Ha 

bov  count  ,0  ;Ha,  clear  count 

bov  funcnum,3  ;Ma ,  run  function  number  3 

mov  cx , HUMXMIT 

repX3 : 

push  cx 

inc  count  ;Ma 

mov  ax, count  ;Ma 

mov  byte  ptr  pdata3(0),ah  ;Ha,  mark  packet  number  on  high 
bov  byte  ptr  pdata3(l],al  ;Ma,  and  low  byte 

;Ma,  transmit  one  "canned"  short  packet 


loXmit3:  call 


Xmitl 


l 

cal! 

3”? 

s 

dowho 

doxnt 

list  Sihatal  result 

;  transnit  “1 

eng  canned”  packet 

continuously  without  data 

pass  for  one  mnr 

3X34: 

Sorint  XK=sg4 

;Ka 

jsp 

doxnt 

;Ha 

call 

xnit! 

;send  a  packet 

saov 

errcc, a! 

j=P 

uninit 

orecv: 

call 

revsere 

;recieve  packets  for  till 

Key  hit 

r:ov 

erred, al 

- 

uninit: 

;  ********************** 

call 

HesetAdapter 

-  ********************** 

call 

fixvecs 

rzov 

al, erred 

-'out: 

nov 

ah,4ch 

int 

21h 

;tst31 

endp 

;Ma 

strxl 

endp 

;Ha 

sitl  proc 


near 


;  transnit  one  "canned"  packet 
:  Sprint  XHnsg 


;put  our  eaddr  in  xnit  pkt 
nov  ax, word  ptr  wbf.ea 

r.ov  word  ptr  sorca,ax 

nov  ax, word  ptr  wbf.ea+2 

nov-  word  ptr  sorca+2,ax 

nov  ax, word  ptr  wbf.ea+4 

nov  word  ptr  sorca+4 ,ax 


;setup  for  PutTxData 

emp 

funcnun,4d 

;Ha 

je 

set4 

;Ha 

emp 

funcnun,3d 

;Ma 

je 

set3 

;Ma 

emp 

funcnura,2d 

;Ma 

je 

set2 

;Ha 

emp 

count, id 

;Ha 

jnz 

notfl 

;Ha 

mov 

dx,60h 

;req  id  and  wait  , 

jmp 

short  setl 

;Ma 

lotfl:  mov 

dx,64h 

;req  id,  wait  and 
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/Ha 


-Ct2: 


crp 

count.  Id 

;Ka 

jnz 

nptf2 

:Ka 

DOV 

dx,60h 

;rec  id  and  wait 

j=P 

short  seto2 

;Ka' 

notf2: 

nov 

dx,S4h 

;rec  id,  wait  and  no  data 

pass 

:eto2: 

E20V 

si, offset  CODS: 

:x=tpk2  ;xnt  pkt  buffer 

SOV 

bx,xp!en2 

;set  lengths 

sov 

cx,bx 

j=? 

setnoTx 

.-Hi 

set3: 

cup 

count, Id 

;Ka 

jnz 

notf3 

;Ha 

nov 

dx,60h 

;rec  id  and  wait 

jnp 

short  seto3 

;Ka' 

iotf3: 

nov 

dx,64h 

;req  id,  wait  and  no  data 

pass 

seto3: 

nov 

si, offset  CODS: 

xrstpk3  ;xnt  pkt  buffer 

nov 

bx,xplen3 

;set  lengths 

inc 

bx 

;Ma,  rake  length  256 

nov 

cx,bx 

■set4: 

nov 

di.Offffh 

;no  TxProcess 

setnoTx 

:  nov 

di,Offffh 

" ;no  TxProcess 

;  ********************** 
call  PutTxData 

•  ********************** 

cov  retsav, ax 

;  Sprint  XRssg 

;  Sprx  4 , retsav 

:  '  Sprint  crlf 

nov  ax, retsav 

ret 

nsitl  endp 


rcvsone  proc  near 


;  following  code  to  dump  received  packets  for  a  fixed  tine 
Sprint  RSnsg 

chkpk: 

Skbdchk  ;key  pressed? 

or  al,al 

jz  rdbfr 

jmp  wedone 

rdbfr: 

test  pklock.Offh  ;got  a  pkt? 
jnz  lstpkt 

jnp  chkpk 

lstpkt: 
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gprx  l.pkerr 

Sprint  crlf 

aov  pklock,0 

inc  pkcnt 

jap  chkpk 

look: 

cap  pklen.O 

jnz  pkok 

Sprint  ZPnsg 

aov  pklock,0 

inc  pkcnt 

jap  chkpk 

pkok: 

ccp  pklen,256 

jle  dackl 

aov  pklen,2S6  ;linit  dunp  to  1st  256  bytes 

iaokl : 

Sdnprt  <offset  CODE:pkthd>,0,pklen 
nov  pklock,0 

inc  pkcnt 

jap  chkpk 

redone: 

Sprint  REnsg 

nov  ax,0  ;a  return  code 

ret 

rcvsone  endp 


RxProcess 


SxProcess  proc  near 


push 

bx 

push 

cx 

test 

cs:pklock,Offh 

jz 

getp 

dontget 

inc 

pkcount 

nov 

cx,0  ;zero  length  (just  discard) 

jnp 

goget 

getp: 

;  At 

this  point  we  could 

check  es:di  packet  header  data 

;  to 

make  some  decision 

on  packet  disposition 

;  lock  our  buffer  and  get  packet  data  into  it 
nov  cs:pklock,Offh  ;lock  buff 

nov  cs:pkerr,0 

goget: 

nov  ax, CODE 

nov  es , ax 

mov  di, offset  CODE:pkthd  .'buffer, 
or  dl , 40h  .'release  buffer 

•  **  ******************  **★ 


A-15 


olen: 


}CX2 

stolen 

BOV 

cs:pkerr,a>: 

BOV 

cs:pklen,cx 

pop 

cx 

p  op 

bx 

ret 

Reprocess  endp 


,  ExitRcvInt 

:xitRcvlnt  proc  near 
iret 

:xitRcvint  endp 


— 

get  and 

print  WhoAnI  statistics  — •- 

dowho 

proc 

near 

push 

es 

xor 

dl,dl  ; adapter  0 

•  ********************** 

call 

WhoAmI 

;  ********************** 

nov 

retsav, ax 

Sprint 

WAmsg 

Sprx 

4 , retsav 

Sprint 

crlf 

roov 

ax, retsav 

or 

ax,  ax 

jz 

wa_ok 

mov 

erred, 3 

jmp 

uninit 

;a_ok: 

tnov 

si,di 

roov 

di, offset  CODE:wbf 

push 

ds 

push 

ds 

push 

es 

pop 

ds 

pop 

es 

mov 

CX ,  24 

old 

rep  movsw 

;copy  who  buffer 

pop 

ds- 

pop 

es 

call 

whodat  rprint  the  WhoAmI 
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I 


rot 

lowho  endp 


-:ih 


;kjjL  to:  key 


- -  print  WhoAral  data  - 

whodat  PSOC  near 

Sprint  WOOnsg 

;;;•  gdnprt  <offset  CO0E:wbf>,0,48 

Sprint  WOlnsg 
ibov  cx ,  6 

mov  bx ,  0 

■srtea : 

push  bx 

Sprx  2,<word  ptr  (bx+offset  C0DE:wbf .ea-l]> 

pop  bx 

inc  bx 

loop  prtea 

Sprint  crlf 

Sprint  W02msg 

Sprx  2,<word  ptr  wbf.verl-l> 

“  Sprint  crlf 

Sprint  W03insg 

Sprx  2,<viord  ptr  wbf.ver2-l> 

Sprint  crlf 

Sprint  W04ir.sg 

Sprx  2,<word  ptr  wbf.ver3~l> 

Sprint  crlf 

Sprint  WOSmsg 

Sprx  2,<«ord  ptr  wbf.ver4-l> 

Sprint  crlf 

Sprint  W06msg 

Sprx  2,<word  ptr  wbf.atyp-l> 

Sprint  crlf 

Sprint  W07rosg 

Sprx  2,<word  ptr  wbf.astat-l> 

Sprint  crlf 

Sprint  W03nsg 

Sprx  2,<word  ptr  wbf.bfrs-l> 

Sprint  crlf 

Sprint  W09msg 

Sprx  2,<word  ptr  wbf.nxb-l> 

Sprint  crlf 

Sprint  Wiomsg 

Sprx  4,<word  ptr  wbf.sxb> 
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c;  .  1 


t'prjr,! 

Sprint  Wllrasg 

0pr x  4, -word  per  wbf .  >:ntc*-2 " 
Spry.  4,<word  ptr  wbt'.xnto 
Sprint  crlf 

Sprint  Wl2rasg 

Sprx  4,<word  ptr  wbf.xmte+2> 
Sprx  4;<word  ptr  wbf.xmte> 
Sprint  crlf 

Sprint  W13msg 

Sprx  4,<word  ptr  wbf -xmtto+2> 
Sprx  4,<word  ptr  wbf.xmtto> 
Sprint  crlf 

Sprint  W14nsg 

Sprx  4,<word  ptr  wbf.rcvc+2> 
Sprx  4,<word  ptr  wbf.rcvo 
Sprint  crlf 

Sprint  WISrasg 

Sprx  4,<word  ptr  wbf.rcvbc+2> 
Sprx  4,<word  ptr  wbf.rcvbo 
Sprint  crlf 

Sprint  Wl6msg 

Sprx  4,<wcrd  ptr  wbf.rcve+2> 
Sprx  4,<word  ptr  wbf.rcve> 
Sprint  crlf 

Sprint  Wl7asg 

Sprx  4<<word  ptr  wbf.rtc+2> 
Sprx  4,<word  ptr  wbf. r tc> 
Sprint  crlf 

Sprint  W18nsg 

Sprx  2,<word  ptr  wbf.xfmd-l> 
Sprint  crlf 

Sprint  W19msg 

Sprx  2,<word  ptr  wbf.wtmd-l> 
Sprint  crlf 

Sprint  W20msg 

Sprx  4,<word  ptr  wbf.extp> 
Sprint  crlf 

ret 

vhodat  endp 


savvecs  proc  near 
push'  ds 
push  es 
push  si 
push  di 
push  cx 


A-18 


no .- 

mov  c:; 

>:or  ax,  ax 

nov  ds.ax 

nov  cx,22h*2  .-.vectors  0  -  21h,  2  wds  per 

bov  di, offset  CODE: vectsv 

xor  sifsi 

cld 

cli 

rep  movsu  ;save  'em  all 

sti 

pop  cx 

pop  di 

pop  si 

pop  es 

pop  ds 

ret 

savvecs  endp 


fix  veer,  proc  near 

push  es 

push  si 

push  di 

push  cx 

xor  ax, ax 

mov  es , ax 

mov  cx, 22h*2  ; vectors  0  -  21h,  2  wds  per 

mov  si, offset  C0DE:vectsv 

xor  di,di 

Cld 

cli 

rep  bovsw  .-restore  'ea  all 

sti 

pop  cx 

pop  di 

pop  si 

pop  es 

ret 

fixvecs  endp 


daprt  -  produces  dump  listing,  calling  parameters  are  pushed  on  stack 
(converted  from  a  C  routine) 

INPUTS: 

(bp+4)  =  data  address 

[bp+6]  =  starting  address  for  line  headers 

[bp+8]  =  length  of  data,  to  print 

OUTPUT: 

Dump  listing  to  stdout  device 


dmprt  proc  near 

push  bp 

mov  bp.sp 

mov  bx , bp 

sub  bx.Och  ; local  vars 
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ICOV 

posh 

mo  v 

si 

ax,  (!);:■  -J  i  ;len 

dOOSc: 

sub 

mov 

dx,dx 
cx, lOh 

d0061 : 

div 

mov 

cx 

(bp-4), ax  ; lines 

d0063 : 

mov 

[bp-6),dx  ;ren 

10066: 

mov 

word  ptr  (bp-8 ] , o 

1006b: 

mov 

word  ptr  (bp-0ah],0 

-10070 : 

jmp 

d0158 

d0073: 

push 

dx 

mov 

dl  ,cr 

;000d 

mov 

ah(2 

int 

21h 

mov 

dl ,  If 

;OOOA 

mcv 

ah,  2 

int 

21h 

mov 

dl,'  ' 

mov 

ah,  2 

* 

int 

2lh 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

pop 

dx 

mov 

ax,  4 

push 

ax 

mov 

ax, (bp+6) 

;adr 

add 

ax, (bp-8] 

;i 

push 

ax 

call 

prx 

add 

sp,4 

;0004 

push 

dx 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

pop 

dx 

.mov 

word  ptr 

(bp-Och)  ,0 

;line 


d00c5:  test 
'  jnz 

push 
mov 


byte  ptr  (bp-0ch],3 

d00d5 

dx 

dl,'  ' 
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nov  1:1 , 

i  :il  !  h 

pop  dx 


doods:  mov  ax, 2  ;0002 

push  ax 

mov  bx,(bp-8]  ;i 

nov  si,(bp+'ij  ;buf 

mov  ah,[bx+si]  ; buffi] 

push  ax 

call  prx 

add  sp,4  ;G004 


inc  word  ptr  fbp-8]  ;i 

inc  word  ptr  fbp-Och]  ;j 

dOOfO:  cmp  word  ptr  (bp-0chj,10h  ;j 

jb  d00c5 

push  dx 

mov  dl , '  ' 

mov  ah ,  2 

int  21h 

mov  dl , '  ' 

mov  ah , 2 

int  21h 

pop  dx 

sub  word  ptr  [bp-8],i0h  ;i,0010 

mov  word  ptr  (bp-0ch],0  ;j 


;do  ascii 

dOH3:  mov  bx,  fbp-8]  ;i 

nov  si , fbp+4 ]  ;buf 

push  dx 

mov  dl,fbx+si]  ;buf(ij 

cmp  dl , '  ' 

jb  d0l3f 

cmp  dl,7fh 

jb  d0142 

d0l3f:  mov  dl,'.'  ;O02e 

dOl42 : 

mov  ah ,  2 

int  21h 

pop  dx 

inc  word  ptr  fbp-8]  ;i 

inc  word  ptr  fbp-Och]  ;j 

cmp  word  ptr  fbp-Och], loh  ;0010 

jb  dOH3 

inc  word  ptr  fbp-Oah]  ;line 

d0l58:  mov  ax,(bp-4]  ;lines 

cmp  (bp-oah),ax  ;line 

jnb  d0163 

jmp  d0073 
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word  per 
j:)K  do !  !>c 

imp  -10272 


1016c: 


push 

dx 

mov 

dl  ,cr 

•,  ;000d 

mov 

ah  ,2 

int 

21h 

mov 

dl ,  If 

;000a 

mov 

ah, 2.. 

int 

2lh 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h  . 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

pop 

dx 

mov 

ax,  4 

;0008 

push 

ax 

mov 

ax, (bp+6) 

;adr 

add 

ax, [bp-8] 

push 

ax 

call 

prx 

add 

sp,4 

,-0004 

push 

dx 

mov 

dl,'  ' 

mov 

ah, 2 

int 

2lh 

mov 

dl, '  ' 

mov 

ah,  2 

int 

2lh 

pop 

dx 

mov 

word  ptr  (bp- 

och]  ,0 

jmp 

short  doic3 

30198:  test  byte  ptr  [bp-0ch],3  ;j 

jnz  d01a8 

push  dx 

nov  dl,'  ' 

mov  ah ,  2 

int  2lh 

pop  dx 


d01a8':  mov  ax, 2  ;0002 

push  ax 

mov  bx,(bp-8)  ;i 

mov  si,[bp+4)  ;buf 

mov  aii ,  J  bx+si )  ;buf[i) 

push  ax 

call  prx 

add  sp,4  ?0004 


inc  word  ptr  [bp- 8]  ;i 

inc  word  ptr  (bp-Ochj  ;j 
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i  > 1 c  5 :  mov 
crop 
jb 
jnp 


••>:,!  bp—  1 
(bp-och) , ax 
d019S 

short  doif'i 


doled:  test 
jn2 
push 
mov 
mov 
int 
pop 

dOldd: 


dOlf 4 :  crop 
jb 

push 

mov 

mov 

int 

mov 

mov 

int 

pop 


byte  ptr  (bp~Och],3 

dOldd 

dx 

dl ,  '  ' 
ah,  2 
21h 
dx 


dx 

dl,'.' 

ah,  2 

2lh 

dl,'.' 

ah, 2 

2lh 

dx 

word  ptr  [bp-och)  ;j 

word-ptr  C  bp-och  ] , loh 

doled 

dx 

dl,'  ' 
ah, 2 
2lh 
dl,'  ' 
ah,  2 
21h 
dx 

ax, [bp-6]  ;rea 

[bp-8], ax  ;i 

word  ptr  ( bp-Och ),0  ?j 


;do  ascii 


ax, [bp-6] 

(bp-och), ax 
d026c 
bx, [bp-8] 
si ,  (bp+4 ] 
dx 

dl , (bx+si) 
dl,'  ' 
d024d 
dl,7fh 
d0250 


;buf(i] 


d024d:  mov 


dl,’.' 


mov 


ah,  2 
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pop  dx 


inc 

word  ptr 

(bp-8)  ; i 

inc 

word  ptr 

(bp-0cft) 

jrap 

short  d0219 

1025f : 

push 

dx 

mov 

dl , ' . ' 

mov 

ah  ,2 

int 

2lh 

pop 

dx 

inc 

word  ptr 

{bp-0ch] 

d026c: 

cmp 

word  ptr 

[bp-0ch] ,10h 

jb 

d025f 

d0272: 

push 

dx 

mov 

dl,cr 

;000d 

mov 

ah  ,2 

int 

21h 

mov 

dl ,  If 

;000a 

mov 

ah,  2 

int 

2lh 

pop 

dx 

pop 

si 

mov 

sp,bp 

pop 

bp 

ret 

daprt 

endp 

;0010 


prx  -  routine  to  print  a  hex  value  from  binary  data  up  to  word  length 
INPUTS: 


[bp+4  J 
[bp+6] 

=  binary  data  to  convert 
=  number  of  bytes  to  print  (1  to  4) 

proc 

near 

push 

bP 

mov 

bp,sp 

mov 

bx,bp 

sub 

bx,  4 

; local  space 

mov 

sp,bx 

push 

si 

push 

dx 

push 

cx 

push 

ds 

mov 

ax,ss 

;make  temp  buf  accessable 

mov 

ds,ax 

lea 

bx, (bp-4 ) 

;temp  buffer  address 

mov 

dx, (bp+4  ] 

;data  to  cvrt 

call 

wtoa 
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IS:'.’ 

c>: ,  *  bp»«> } 

;ch.ir  count  to  print 

xor 

si  ,  si 

>rxl : 

r.ov 

dl ,  (bp*si-'i  ] 

;get  a  byte 

r.ov 

ah,  2 

" 

int 

2ih 

; print  it 

inc 

si 

loop 

prxl 

pop 

ds 

„ 

pop 

cx 

pop 

dx 

pop 

si 

nov 

sp/bp 

pop 

bp 

ret 

prx 

endp 

CONVERT  WORD  TO  ASCII 
:  Calling  sequence: 

;  r.ov  dx.word 

;  r.ov  bx, offset  out 

;  call  wtoa 

:  ds:bx  needs  4  bytes 

HEX 

;word  to  convert 
; where  to  put  output 

for  result 

vtoa 

proc 

near 

push 

ax 

push ' 

bx 

push 

CX 

push 

dx 

push 

si 

rcov 

si, 4 

, "digits  per  word 

wtoaoi: 

ir.ov 

al.dl 

?get  a  digit 

nov 

cl,  4 

shr 

dx,cl 

.•strip  the  digit 

and 

al,Ofh 

;keep  low  nibble 

add 

al,090h 

daa 

adc 

al,040h 

daa 

dec 

si 

.•count  the  digit 

nov 

{bx+sij ,al 

; store  the  digit 

jn2 

wtoaOl 

- 

pop 

si 

pop 

dx 

pop 

CX 

pop 

bx 

pop 

ax 

ret 

wtoa 

endp 

RCODE 

ENDS 

END  ts 

trxl 

?Ka 
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**  liOTE:  »*  To  allow  this  proqrja  to  cod  cleanly 

added  savvccs  and  fixvecs  routines  to  preserve  vectors  that 

could  possibly  be  changed. 

This  allows  2J.  interrupt  hooks  to  be  undone  so  3L  can  be  used 
in  an  executable  program  rather  than  just  a  permanent  driver. 


.-define  3L  functions 
-  extrh  InitParaneters : near 

jxtrn  InitAdapters:near 
extrn  WhoAalrnear  ' 
extrn  EesetAdapter :  near 

jxtr  n  SdKxFilter : near 

;xtrn  WrRxFi Iter: near 

extrn  GetExData:near 
'  extrn  SetLookAhead:near 

2y.trn  PutTxDatainear 

i  extrn 
;  : extrn 

i  extrn 


5xtrn 

Sr and: 

near 

jxtrn 

Rand: near 

extrn 

Waiting:near 

public 

RxProcess 

public 

ExitRcvInt 

■ 

;  so  these '11 

be  in  map 

for  debugg 

ing 

public 

argstr 

,  crlf,  retsav,  pkthd,  wbf,  xmtok,  fnormt 

public 

xraitl. 

revsose. 

dowho,  sawees,  fixvecs,  dmprt,  prx,  wtoa,suard 

If 

equ 

Oah 

cr 

equ 

Odh 

minsec 

equ 

60d 

.4UMXMIT 

equ 

lOOOd 

total  packets  transmitted 

/Ha 

RANDRANGE  equ 

lid 

■upper  limit  of  random  number 

/Ha 

MODUNUM 

equ 

lOd 

nodular  number  with  count 

/Ha 

FTIMEIO 

equ 

392d 

interframe  time  w/pass  64  data  bytes  /Ma 

FTIME20 

equ 

574d 

n  ii  it  128  11 

It 

/Ha 

FTIHE30 

equ 

946d 

ti  n  »i  256  n 

It 

/Ha 

FTXHE11 

equ 

200d 

"  ”  wout/pass  64 

data  b. 

/Ha 

FTIHE21 

equ 

255d 

it  n  it  128 

it  ii 

/Ha 

FTIME31 

equ 

355d 

«  «  »  256 

M  11 

/Ha 

Sprint 

.macro 

strloc 

; print  string  at  strloc 

local 

strloc 

push 

cx 

lea  dx, strloc 

mov  ah,09h 

int  2lh 

pop  cx 

endm 


SetTime:near 
TineOut:near 
Ticks: word 


;get  kbd  char  in  al 
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Skbdin  macro 


Ckfcdchk  racro 

: check  for  kid  char. 

30V 

ah.Obh 

int 

2!h  : re turns  al:  O-nokey,  ff-keyhit 

enda 

" 

Jorx 

nacro 

len,  dat  ;  nr  int  hex  data  in  word  cat,  len  =  i  to 

; don't  put  data  in  ax 

swv 

ax, len 

push 

ax 

SDV 

ax, dat 

3USH 

ax 

call 

prx 

add 

sp,4 

ends 

3crprt 

sacro 

buf,adr,len  ;hex  dunp  a  data  area 

2CV 

ax, len 

push 

ax 

ssov 

ax/adr 

push 

ax 

sov 

ax,buf 

uush 

ax 

call 

cnort 

- 

add 

so,  6 

ends 

CODS 

GROUP 

DATA,  RCODE,  STACK 

DATA 

SEGMENT  KORD  PU3LIC 

;DOS  driver  ini 

t  request  header  fomat 

ini_hd 

struc 

db 

23  ;hdr  len 

db 

0 

db 

0  ;init  end 

stat 

dw 

0 

db 

8  dup  (0) 

db 

0  ;nun  units  (not  used) 

odend 

dd 

0  ;code  end  set  here 

3rgo 

dw 

0  ;arg  offset 

args 

dw 

o  ;arg  segnent 

db 

0 

ini_hd 

ends 

;  this  would  cone  iron  'device='  on  real  driver  init 

argstr 

db 

"bs.sys  /A: 300  /D:l  /I:3",lf 

fake  driver  init  reguest  header  for  InitParaneter  input 

ih 

ini_hd 

vectsv 

dd 

22h  dup  (0)  ;save  all  vectors  so  we  can  cleanup 

;WhoAraI  adapter 

info  structure 

ad_info 

struc 

aa 

db 

6  dup(0)  ;enet  addr 
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db 

0 

;ty pc  ver 

zzyp 

db 

0 

;adapter  type 

istat: 

db 

0 

;  adapter  status 

jfrs 

db 

0 

; buffer  flags 

nxb 

db 

0 

; number  of  xnit  bu; 

;xb 

dv 

0 

;xmit  buffer  size 

C2tC 

dd 

0 

;xmit  count 

xste 

da 

0 

;xnit  errs 

xrstto 

dd 

0 

;xmit  timeouts 

;cvc 

dd 

0 

;rcv  count 

rcvbc 

dd 

0 

; beast  rev  count 

rcve 

dd 

0 

;rcv  errs 

rtc 

dd 

0 

: retry  count 

:fnd 

db 

0 

;>:fer  mode  flags 

vtrsd 

db 

0 

;wait  mode  flags 

axtp  , 

dw 

0 

.-extension  pointer 

info 

ends 

icroaram  messages 

:rl f  db  cr,lf,'$' 

TV msg  db  "tst31  load  point:  $" 

IPmsg  db  " InitParaneters  returns:  $" 

TAmsg  db  "InitAdapters  returns:  $" 

?Assg  db  "KhoAmI  returns:  $" 

WFnsg  db  "KrRxFilter  returns:  $" 

r,Ansg  db  "SetLookAhead  returns:  $" 

JEnsg  db  "GetRxData  error  return:  $" 

ZPmsg  db  If, "Zero  length  packet", cr, If , '$' 

PAssg  db  "Press  any  key  to  continue ",cr, If , 

?Snsg  db  "Starting  packet  receive —  any  key  to  end",cr,lf , 

lEiasg  db  "Stopping  receive", cr, If ,  '$'  . 

CLmsg  db  ":$" 

■Jrnsg  db  "  -  S" 

•~Nmsg  db  "Select  function,  r  for  recv,  t  for  xnit:  ".'S' 

XMmsg  db  "Sending  1  packet" ,cr;lf , 

XHnsg  db  "PutTxData  returns:  $" 

.IDInsg  db  "Average  integer:  $" 

RDFrasg  db  "  Average  fraction:  $" 

<Hreq  db  "Transnision  of  packets  has  four  options :",cr, If 

db  **  0-  Exit11 /Cr, If 

db  "1.  Transnit  78  byte  packets  with  randon  tine  data  pass.",cr,l 

db  "2.  Transmit  142  byte  packets  with  random  time  data  pass.",cr, 

db  "3.  Transmit  270  byte  packets  with  randon  time  data  pass.",cr. 


db  cr,lf 

db  "Enter  your  choise:  <‘Ha 

XMrasgl  db  "Sending  78  bytes  packets  for  10  seconds  sampling  w/D"  ;Ma 

db  cr,lf, '$'  ;Ha 

<Hmsg2  db  "Sending  142  bytes  packets  for  10  seconds  sampling  w/D"  ;Ma 

db  cr,lf,'$'  .-Ha 

kMmsg3  db  "Sending  270  bytes  packets  for  10  seconds  sampling  w/D"  ;Ma 

db  cr.lf.'S'  ;Ma 

XHmsg4  db  "Sending  long  packets  for  one  minite  without  data  pass"  ;Ma 

db  cr,lf , '$'  ;Ma 


.*•  1  its-  : 

«• 

"a!U 

ami  UA.A  , !l  . 

Jjlmsg 

db 

M 

enet  addr 

S" 

2csg 

db 

l( 

major  ver 

S" 

v;03nsg 

db 

II 

minor  ver 

$" 

J04csg 

db 

II 

sub  ver 

$“ 

J05msg 

db 

It 

type  ver 

$" 

i-:06nsg 

db 

If 

adapter  type 

$" 

'J07nsg 

db 

It 

adapter  status 

S" 

J08nsg 

db 

II 

buffer  flags 

$■' 

K09csg 

db 

It 

number  of  xnit  buffers 

$" 

WlOnsg 

db 

If 

xnit  buffer  size 

S" 

aimsg 

db 

tl 

xnit  count 

$” 

J12nsg 

db 

'*  If 

xnit  errs 

S" 

W13msg 

db 

It 

xnit  timeouts 

S” 

J14asg 

db 

It 

rev  count 

$■' 

J15msg 

db 

It 

beast  rev  count 

$" 

W16nsg 

db 

It 

rev  errs 

$■’ 

>ll7nsg 

db 

It 

retry  count 

$" 

718nsg 

db 

It 

xfer  mode  flags 

$" 

W19nsg 

db 

It 

wait  mode  flags 

$" 

W20csg 

db 

It 

extension  pointer 

$” 

;  nisc 

parameters 

retsav 

dw 

;egval 

dw 

•5 

:off 

dw 

•> 

erred 

db 

0 

jklock 

db 

0 

pklen 

dw 

0 

- 

pkerr 

dw 

0 

jkent . 

dw 

0 

pkcount  dw 

0 

•savax 

dw 

■> 

.•receive  buffer 

okthd  db  32  dup(O)  .’packet  header  portion  for  SetLookAhead 

rpktdat  db  1500  dup(O)  ;  remainder  of  pkt  buffer  /closed  by  Ma 

,’WhoAmI  buffer 

vbf  ad_info  <>  ,-WhoAmI  buffer 

;****************  ready  packet  data  ************************* 

: transmit  64  data  byte  packet 
label  byte 

db  02h,60h,8ch,oih,02h,03h  .’arbitrary  dest  addr 

db  Q0h,00h,00h,0fh,0fh,0fh  ;source  addr  -  fill  from  who  ea 
db  0,64  .’packet  length 

db  00h , OOh , OOh , OOh ,  04h ,  05h , 06h , 07h 

db  OSh , 09h , Oah , Obh , Och , Odh , Oeh , 0  f h 

db  lOh, lih , I2h , 13h , I4h , 15h , I6h , I7h 

db  18h ,  19h , lah , lbh , lch , ldh , leh , 1 f h 

db  20h, 2lh, 22h, 23h , 24h , 25h, 26h , 27h 

db  28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2  f h 

db  30h,31h,32h,33h,34h,35h,36h,37h 

db  sah^h.sah.sbh.sch.sdh.seh.sfh 


xratpk 

desta 

;orca 

plen 

pdata 


t 


i 

l 

i 

i 


! 


I 


I 
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;;  Jckol  1<-H 


;*******<********  ready  packet  data  ***  +  ***■**■»*+***■»***■»*  +  +  ** 

.-transmit  128  data  byte  packet 
<mtpk2  label  byte 

Jesta2  db  02h,60h,8ch,01h,02h,03h  .-arbitrary  dest  addr 

sorca2  db  OOh.OOh.OOh.Ofh.Ofh.Ofl  .-source  addr  -  fill  from  who  ea 

3len2  db  0,128  .-packet  length 

x5ata2  db  00h,00h,00h,00h,04h,05h,06h,07h 

db  08h,09h, Oah , Obh , Och , Odh , oeh , of h 

db  I0h,llh,l2h,13h,l4h,ish,l6h,i7h 

db  1 3h , 19h , lah , lbh , lch , ldh , leh , If h 

db  20h,21h,22h,23h,24h,2Sh,26h,27h 

db  28h,29h,2ah,2bh,2ch,2dh,2eh,2fh 

db  30h,31h,32h,33h,34h,3Sh,36h,37h 

db  38h.39h.3ah , 3bh, 3ch, 3dh, 3eh , 3f h 

db  00h,01h,02h,03h,04h,05h,06h,07h 

db  08h,09h,0ah,0bh,0ch,0dh,0eh,pfh 

db  10h,llh,12h,13h,14h,l5h,16h,l7h 

db  I8h , 19h , lah , lbh , lch , ldh , leh , l f h 

db  20h, 21h, 22h, 23h,24h, 2Sh, 26h, 27h 

db  28h, 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

db  30h,31h,32h,33h,34h,3Sh,36h,37h 

db  38h,  39h.3ah.-i  3bh,  3ch,  3dh,  3eh,  3fh 

<plen2  dw  $-xmtpk2  ;packet  len 

;****************  ready  packet  data  ************************* 

.-transmit  256  data  byte  packet  ' 

:  xntpk3  label  byte 

Jesta3  db  02h,60h,8ch,0ih,02h,03h  .-arbitrary  dest  addr 

$orca3  db  00h,00h,00h,0fh,0fh,0fh  ;source  addr  -  fill  from  who"  ea 

plen3  db  0,255  ; packet  length 

j  ?data3  db  00h,00h,00h,00h,04h,05h,06h,07h 

■  db  OSh.OOh.Oah.obh.Och.Odh.Oeh.Ofh 

,  db  I0h,lih,i2h,l3h,i4h,l5h,l6h,i7h 

db  18h,l9h,lah,lbh,lch,ldh, leh.lfh 

db  20h,21h,22h,23h,24h,25h,26h,27h 

db  28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

db  30h,31h,32h,33h,34h,35h,36h,37h 

db  38h,39h,3ah,3bh(3ch,3dh,3eh,3fh 

,  db  00h,01h,02h,03h,04h,05h,06h,07h 

i  db  08h.09h.0ah.0bh, Och, Odh, Oeh, Ofh 

j  db  I0h,lih,l2h,l3h,l4h,l5h,l6h,i7h 

!  db  I8h,l9h,lah,lbh, lch, ldh, leh.lfh 

!  db  20h, 21h, 22h, 23h, 24h, 25h , 26h , 27h 

db  28h,29h,2ah,2bh,2ch,2dh, 2eh,2fh 

db  30h, 31h, 32h, 33h, 34h , 35h,  36h , 37h 

db  38h,39h,3ah,3bh,3ch,3dh, 3eh,3fh 

db  00h,01h,02h,03hy04h,05h,06h,07h 

db  08h,09h, Oah , Obh , Och , Odh , Oeh , Of h 

db  lOh, llh,12h,l3h, I4h,15h, 16h, I7h 

db  18h , 19h , lah , lbh , lch , ldh , leh , if h 

db  20h, 21h, 22h, 23h, 24h, 25h, 26h , 27h 

db  28h, 29h,2ah, 2bh, 2ch,2dh, 2eh, 2fh 

db  30h, 3lh , 32h , 33h, 34h, 35h,  36h , 37h  .  , 

db  38h, 39h, 3ah, 3bh, 3ch, 3dh, 3eh, 3fh 

db  00h,0lh,02h,03h,04h,05h,06h,07h 
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«  *  *  <  *  * 

/ill 

Wr-ixFi !  ter 

;  ***** 

***************** 

mo  v 

retsav, ax 

Sprint 

WFnsg 

Sprx 

4 , retsav 

Sprint 

crlf 

mov 

ax, retsav 

or 

ax,  ax 

jz 

wf_ok 

mov 

erred,  5 

jmp 

uninit 

wf_ok: 


;do  xmit  or  rev  per  user  input 


fnprnt: 


Sprint 

FNmsg 

Skbdin 

;get 

push 

ax 

Sprint 

crlf 

pop 

ax 

crap 

al,'r' 

;  je 

doreev 

;Ha 

je 

jdoreev 

;Ma 

crap 

al,'t' 

je 

doxmt 

;Ma 

«  jne 

fnprmt 

,-Ma 

jrap 

fr.prmt 

;Ma 

jdoreev:  jmp 

doreev 

;Ha 

ioxnt: 

Sprint 

XMreq 

;Ha 

Skbdin 

;Ma, 

push 

ax 

;Ma 

Sprint 

crlf 

;Ha 

•  pop 

ax 

;Ha 

crap 

al, '1' 

;«a 

je 

doxml 

;Ka, 

emp 

al, '2' 

;Ma 

je 

jdoxm2 

;Ma, 

crap 

al, '3' 

;Ma 

je 

jdoxm3 

;Ma, 

emp 

al, '4' 

;Ha 

je 

jdoxm4 

;Ma, 

emp 

al, '0' 

;Ma 

je 

juninit 

;Ka, 

jne 

doxmt 

;Ma 

mov 

erred, al 

;Ma 

jmp 

uninit 

;Ma 

jdoxm2:  jmp 

doxm2 

;Ha 

jdoxm3:  jrap 

doxm3 

;Ha 

jdoxm4 :  jrap 

doxm4 

,-Ma 

juninit:  jmp 

uninit 

;Ha 

input  selection 


get  input  selection 


transmit  64  byte  packets  with  data  pass 
transmit  128  byte  packets  with  data  pass 
transmit  256  byte  packets  with  data  pass 
transmit  long  packets  without  data  pass 
end  of  transmision 


transmit  64  data  byte  packet  continuously  without  data  pass  for  10  seconds 
sampling. 
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•  ll 


iv o  i  bu:u*h  oi 


or*;  lor  i  i tor 


3*^ 


nov  bx, offset  CQD£:ih  ;taXc  driver  nut  request  buffer 

•  *  A  *★**’****★★  ick  *★*★**★  if 

,  call  InitParameters 

•  ********************** 

.niov  retsav, ax 

@print 
Sprx 
Sprint 
mov 
or 

jz 

mov 
jrap 

init_ok: 

mov  di, offset  CODE:RxProcass 

'•  *********************** 
call  XnitAdapters 

•  ********************** 


mov 

retsav, ax 

Sprint 

lAmsg 

Sprx 

4 , retsav 

Sprint 

crlf 

mov 

ax, retsav 

or 

ax,  ax 

jz 

ia_ok 

mov 

erred,  2 

jnp 

uninit 

La_ok: 

call  dowho  ;call  WhoAmI  and  list  result 


IPmsg  • 

4 , retsav 
crlf 

ax, retsav 
ax,  ax 
init  ok 
al ,  1 
oout 


;  SetLookAhead  is  not  required  but  added  for  reference 


xor 

dl ,dl  ; 

;  adapter  0 

mov 

cx,32  ; 

;LookAhead  size 

•  it********************* 

call 

SetLookAhead 

•  ********************** 

mov 

retsav, ax 

Sprint 

LAmsg 

Sprx 

4 , retsav 

Sprint 

crlf 

mov 

ax, retsav 

or 

ax,  ax 

jz 

la_ok 

mov 

erred, 4 

jmp 

uninit 

la_ok: 


mov 

pkcount,0 

xor 

dl  ,dl 

.•adapter  0  ,  , 

.mov 

ax,01h 

;set  filter  board  address 

mov 

ax,Och 

;set  filter  to  promis/bcast 
A-33 

Pkb-JohK  ;  key  p:  < / 

or  ci  1 ,  t  1 

jz  rdbir 

jmp  wedone 

rdbfr: 

test  pklock,Offh  ;got  a  pkt? 

jnz  lstpkt 
-jmp  chkpk 

lstpkt: 

test  pkerr,Off£fh  ;any  error 

jz  dmpk 

Sprint  GEmsg 

Sprx  4,pkerr 

Sprint  crlf 

mov  pklock,0 

inc  pkcnt 

jmp  chkpk 

dmpk: 

cmp  pklen,0 
jnz  pkok 
Sprint  ZPmsg 
mov  pklock,0 
inc  pkcnt 
jmp  chkpk 

pkok : 

cmp  pklen,2S6 
jle  dmokl 

mov  pklen,256  ; limit  dump  to  1st  256  bytes 

dmokl: 

Sdmprt  coffset  CODE:pkthd>,0,pklen 
mov  pklock.o 
inc  pkcnt 
jmp  chkpk 

we done : 

Sprint  REmsg 

mov  ax,0  ;a  return  code 

ret 

rcvsome  endp 


RxProcess 


t 

RxProcess  proc  near 

push  bx 

push  cx 

test  cs:pklock,Offh 
jz  getp 

dontget: 

inc  pkcount 

mov  cx,0  ;zero  length  (just  discard) 

jmp  goget 

getp: 

;  At  this  point  we  could  check  es:di  packet  header  data 
;  to  make  some  decision  on  packet  disposition 
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;  lock  <«>;  .m :  got  picket  <kita  into  it 

mo  v  cs :  pk  I  ock ,  t> ! !  ;i  ;  1  ock  buff 

mov  cs:pkerr,0 

goget; 

mov  ax, CODE 

mov  es,ax 

mov  di, offset  CODE:pkthd  .-buffer 

or  dl,40h  ; release  buffer 

•  ********************** 
call  GetRxData 

•  ;**•*  **■*-******★**  ★  ***■*•** 
jcxz  nolen 

mov  cs:pkerr,ax 

mov  cs:pklen,cx 

lolen: 

pop  cx 

pop  bx 

ret 

(xProcess  endp 


-  ExitRcvInt 

ExitRcvInt  proc  near 
iret 

ExitRcvInt  endp 

;  -  get  and  print  WhoAml  statistics  - 


Jowho  proc  near 

push  es 

xor  dl,dl  ; adapter  0 

•  ★★★*★★■*★**★★'********'** 
call  WhoAml 

J  ********************** 

mov  retsav.ax 

Sprint  WAmsg 

Sprx  4,retsav 

Sprint  crlf 

mov  ax,retsav 

or  ax, ax 

jz  wa_ok 

mov  erred, 3 

jmp  uninit 

wa_ok: 

mov  si,di 

mov  di, offset  CODE:wbf 

push  ds 

..push  ds 

push  es 

pop  ds 

pop  es 
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r.o  v 

<->: ,  .’-i 

eld 

rep  novsw 

.•copy  who  but  ter 

pop 

ds 

pop 

es 

call 

whodat 

; print  the  WhoAml  data 

Sprint 

PAmsg 

mov 

ah,  8 

int 

2lh 

,-wait  for  key 

ret 

dowho  endp 

print  WhoAml  data 


whodat 

PROC 

near 

Sprint 

WOOmsg 

#  /  t  i 

Sdmprt 

<offset  CODE:wbf>,0,48 

Sprint 

woimsg 

mov 

CX,6 

utov 

bx,0 

prtea : 

push 

bx 

Sprx 

2,<word 

ptr  (bx+offset  CODErwbf .ea-l]> 

pop 

bx 

* 

inc 

bx 

loop 

prtea 

Sprint 

crlf 

Sprint 

W02msg 

Sprx 

2 ,  <word 

ptr  wbf.verl-l> 

Sprint 

crlf 

Sprint 

W03msg 

Sprx 

2 , <word 

ptr  wbf.ver2-l> 

Sprint 

crlf 

Sprint 

W04msg 

Sprx 

2 , <word 

ptr  wbf.ver3-l> 

Sprint 

crlf 

Sprint 

WOSmsg 

Sprx 

2 , <word 

ptr  wbf.ver4-l> 

Sprint 

crlf 

Sprint 

W06msg 

Sprx 

2 , <word 

ptr  wbf.atyp-l> 

Sprint 

crlf 

Sprint 

W07msg 

Sprx 

2 , <word 

ptr  wbf.astat-l> 

Sprint 

crlf 

•  . 

Sprint 

W08msg 
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Sprx  „>  ,-word  ptr  wbt.wrs-i* 
('print  erl: 


I 


Sprint  W09msg 

Sprx  2,<word  ptr  wbf.nxb-l> 

Sprint  crlf 

Sprint  Wiomsg 

Sprx  4,<word  ptr  wbf.sxb> 

Sprint  crlf 

Sprint  wiimsg 

Sprx  4,<word  ptr  wbf . xratc+2> 
Sprx  4 , <word  ptr  wbf . xmtc> 
Sprint  crlf 

Sprint  Wl2ir,sg 

Sprx  4,<word  ptr  wbf.xmte+2> 
Sprx  4 , <word  ptr  wbf . xmte> 
Sprint  crlf 

Sprint  Wl3msg 

Sprx  4,<word  ptr  wbf .xatto+2> 
Sprx  4,<word  ptr  wbf .xrr.tto 
Sprint  •  crlf 

Sprint  Wl4nsg 

Sprx  4,<word  ptr  wbf.rcvc+2> 
Sprx  4,<word  ptr  wbf.rcvo 
Sprint  crlf 

Sprint  WlSrasg 

' Sprx  .  4 , <word  ptr  wbf . rcvbc+2> 

Sprx  4,<word  ptr  wbf.rcvbc> 

Sprint  crlf 

Sprint  W16msg 

Sprx  4,<word  ptr  wbf.rcve+2> 
Sprx  4 , <word  ptr  wbf . rcve> 
Sprint  crlf 

Sprint  Wi7nsg 

Sprx  4,<word  ptr  wbf.rtc+2> 
Sprx  4,<word  ptr  wbf.rto 
Sprint  crlf 

Sprint  Wl8nsg 

Sprx  2 , <word  ptr  vbf.xfmd-l> 

Sprint  crlf 

Sprint  Wl9msg 

Sprx  2,<word  ptr  wbf.wtmd-l> 

Sprint  crlf 

Sprint  W20msg 

Sprx  4,<word  ptr  wbf.extp> 

Sprint  crlf 


ret 


sawecs  proc  . 

near 

■;  push 

ds 

f  push 

es 

push 

si 

push 

di 

5  push 

cx 

1  mov 

ax#ds 

mov 

es,ax 

s  xor 

ax,  ax 

i  mov 

ds,ax 

mov 

cx , 22h*2 

.•vectors  0  -  21h,  2  wds  per 

mov 

di^offset 

CODE:vectsv 

:  xor 

si,  si 

'  cld 

cii. 

rep  movsw 

;save  'em  all 

sti 

!  pop 

cx 

pop 

di 

pop 

si 

,  pop 

es 

pop 

ds 

.  ret 

*• 

sawecs  endp 


fixvecs  proc 

near 

* 

push 

es 

push 

si 

push 

di 

push 

cx 

xor 

ax,  ax 

mov 

es,ax 

mov 

CX, 22h*2 

.•vectors 

0  -  21h,  2  wds  per 

mov 

si, offset 

CODE:vectsv 

xor 

di,di 

cld 

cli 

rep  movsw 

; restore 

'em  all 

sti 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

ret 

fixvecs  endp 

dmprt  -  produces  dump  listing,  calling  parameters  are  pushed  on  stack 
(converted  from  a  C  routine) 

INPUTS: 

(bp+4)  =  data  address  .  , 

(bp+6)  =>  starting  address  for  line  headers 

(bp+8)  =  length  of  data  to  print 
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device 


currer: 

bump 


listing  to 


k>ut 


,  draprt 

proc 

near 

1 

push 

bp 

mov 

bp,sp 

l 

mov- 

bx,bp 

i 

sub 

bx , Och  ; local 

f 

mov 

sp,bx 

push 

si 

mov 

ax,(bp+8]  ;len 

'  dOOSc: 

sub 

dx,dx 

mov 

cx,10h 

1  10061: 

div 

cx 

f 

mov 

(bp-4], ax  ; lines 

|  10063: 

mov 

[bp-6] ,dx  ;rem 

! 

d0066: 

mov 

word  ptr  (bp-8],0 

;  d006b: 

mov 

word  ptr  (bp-0ah],0 

10070: 

jmp 

d0158 

d0073: 

push 

dx 

;000d 

mov 

dl,cr 

wo  V 

ah,  2 

int 

21h 

■  raov 

dl,lf 

;000A 

mov 

ah,  2 

int 

21h 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

pop 

dx 

mov 

ax,  4 

push 

ax 

;adr 

mov 

ax,’(bp+6] 

add 

ax, [bp-8] 

;i 

push 

ax 

call 

prx- 

add 

sp,4 

;0004 

push 

dx 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

mov 

dl,'  ' 

mov 

ah,  2 

21h' 

int 

pop 

dx 

mov 

word  ptr 

(bp-Och)  ,o 
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:r.:: 

;  .‘.iv 

-K 

i>: 

r.ov 

11,'  ' 

EOV 

ah, 2 

int 

2lh 

pop 

dx 

d00d5:  ' 

EOV 

,a x,2  ;0002 

push 

ax 

EOV 

b>:,[bp-8]  ;i 

EOV 

si, fbp+4 ]  ;buf 

EOV 

ah,[6x+si)  ;buf[i] 

oush 

ax 

call 

orx 

add 

Sp,4  ;0004 

inc 

word  ptr  [bp-8]  ;i 

inc 

word  ptr  [bp-Och]  ;j 

dOOfO: 

CEO 

word  ptr  [bp-Och] ,10b 

jb 

d00c5 

push 

dx 

EOV 

dl,/  ' 

EOV 

ah,  2 

int 

2ih 

EOV 

dl,'  ' 

EOV 

ah,  2 

int 

21h 

pop 

dx 

sub 

word  ptr  [bp-8],l0h 

EOV 

word  ptr  [ bp-Och ],0 

;do  ascii 


d0113: 

EOV 

bx,[bp-8] 

;i 

EOV 

si, [bp+4 ) 

;buf 

push 

dx 

EOV 

dl, [bx+si] 

;buf  [i 

CEp 

dl,'  ' 

jb 

d013f 

CEp 

dl,7fh 

. 

3b 

d0142 

d013f : 

EOV 

dl,'.' 

;002e 

;i,0010 

:  j 


d0l42: 

nov  ah ,2 

int  21h 

pop  dx 

inc  word  ptr  [bp-8]  ;i 

inc  .  word  ptr  [bp-Och]  ;j 

crop  word  ptr  [bp-Och], lOh  <'0010 

jb  dOH3 

inc  word  ptr  [bp-Oah]  ;line 
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;rc3 


1*112 

i.:*  j 

3 =? 

dCS73 

JQ163:  cbo 

tcord  ptr  [bp-6] ,0 

jnz 

dOISc* 

jsp 

<53272 

-5016c: 

push 

dx 

swv 

<51, cr 

;000d 

bov 

ah, 2 

int 

2ih 

bov 

-51,  if 

;000a 

BOV 

ah, 2 

int 

21h 

BOV 

<51,'  ' 

BOV 

ah, 2 

int 

2lh 

BOV 

<31, '  ' 

BOV 

ah, 2 

inr 

2ih 

pop 

ax 

nov 

ax, 4 

;0003 

push 

ax 

BOV 

ax, [bp+6] 

:adr 

add 

ax,[b?-8] 

•  i 

push 

ax 

call 

prx 

add 

sp,4 

;0004 

push 

dx 

BOV 

<31, '  ' 

BOV 

ah,  2 

int 

21h 

BOV 

<31, '  ' 

BOV 

ah, 2 

int 

2lh 

pop 

dx 

BOV 

word  ptr 

[bp-Och]  ,0 

jnp 

short  d01c3 

<50198: 

test 

byte  ptr 

(bp-Och]  ,3 

jnz 

d01a8 

push 

dx 

BOV 

dl,'  ' 

BOV 

ah,  2 

int 

2lh 

pop 

dx 

301a8: 

BOV 

ax, 2 

;0002 

push 

ax 

mov 

bx,(bp-8] 

;i 

BOV 

si, (bp+4 ] 

;buf 

A-4 

ftJS* 

»% 

call 

P  r»: 

2  dd 

sp,4  ;0004 

inc 

word  per  (bp-3  J  ; i 

inc 

word  per  (bp-och]  : j 

d01c3: 

EOV 

ax, [bp-6]  ;res 

c=o 

[bp-Ooh] ,ax  ;j 

jb 

dOI93 

jc? 

short  d0l£4 

doled: 

test: 

byte  per  [bo-Oc'n] ,  3  ;  j 

jnz 

dOldd 

push 

dx 

r^>v 

dl,'  ' 

nov 

ah,  2 

int 

2lh 

pop 

dx 

dOldd: 

push 

dx 

zov 

dl,'.' 

EOV 

ah,  2 

int 

2lh 

EOV 

dl,'.' 

a  ov 

ah,  2 

int 

21h 

pop 

dx 

inc 

word  ptr  [bp-och]  ;j 

d01f4: 

enp 

word  ptr  [bp-och], loh  ;0010 

jb 

doled 

push 

dx 

KOV 

dl,'  ' 

nov 

ah,  2 

int 

21h 

mov 

dl,'  ' 

ElOV 

ah,  2 

int 

2lh 

pop 

dx 

mov 

ax, [ bp-6 J  ;ren 

sub 

[bp-8 J, ax  ;i 

mov 

word  ptr  [bp-och] ,0  ;  j 

;do  ascii 

d0219: 

mov 

ax, ( bp-6 J  ;ren 

crop 

[bp-Och], ax  ; j 

jnb 

d026c 

mov 

bx,[bp-8]  ;i 

mov 

si, [bp+4 ]  ;buf 

push 

dx 

mov 

dl,[bx+sij  ;buf[i] 

emp 

dl, '  J 

jb 

d024d 

emp 

dl,7fh 
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,1. 

•  !C  *  *  * 

i024d: 

SO  V 

ui,'.' 

:002e 

'10250: 

cov 

ah,  2 

int 

21h 

po? 

dx 

inc 

word  ptr 

[bp-8]  ;i 

inc 

word  ptr 

[bp-Och]  :g 

jnp 

short  d0219 

d025f : 

push 

dx 

BOV 

dl,'.' 

mov 

ah,  2 

int 

21h 

pop 

dx 

inc 

word  ptr 

(bp-Och]  ;j 

d026c: 

cmp 

word  ptr 

(bp-Och], lOh  ;0010 

jb 

d02Sf 

10272: 

push 

dx 

rcov 

dl,cr 

;oood 

mov 

ah,  2 

int 

2lh 

raov 

dl,lf 

;000a 

nov 

ah,  2 

int 

21h 

pop 

dx 

pop 

si 

nov 

sp.bp 

pop 

bp 

ret 

draprt 

endp 

prx  -  routine  to  print  a  hex  value  from  binary  data  up  to  word  length 
INPUTS: 

[bp+4]  =  binary  data  to  convert 

(bp+6)  =  number  of  bytes  to  print  (1  to  4) 


prx 


proc 

near 

push 

bp 

mov 

bp,sp 

mov 

bx , bp  ' 

sub 

bx,  4 

mov 

sp,bx 

.•local  space 


push  si 
push  dx 
push  cx 
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nov 

sX,SS 

,-raake  lenp  bul  accessible 

nov 

ds,ax 

lea 

bx, [bp-4  ] 

;temp  buffer  address 

nov 

dx, ( bp+4 ) 

;data. to  cvrt 

call 

wtoa 

nov 

cx, [bp+6] 

;char  count  to  print 

xor 

si/Si 

>rxl: 

nov 

dl, (bp+si-4 ) 

;get  a  byte 

nov 

ah, 2 

j  int 

21h 

; print  it 

*  inc 

si 

looo 

1 

prxl 

pop 

ds 

pop 

cx 

I  pop 

dx 

1  pop 

si 

J  nov 

sp,bp 

t  pop 

bp 

1  ret 

irx  endp 

I 

|  .  CONVERT  WORD  TQ.  ASCII 

HEX 

S  ;  Calling  sequence: 

* 

nov 

dx.word 

.•word  to  convert 

nov 

bx, offset  out 

;where  to  put  outout 

,  ;  call 

1 

wtoa 

t  ds : bx 

needs  4  bytes 

for  result 

t 

■toa  proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

push 

si 

nov 

si,4 

.•digits  per  word 

itoaol: 

nov 

al,dl 

;get  a  digit 

nov 

cl,  4 

shr 

dx,cl 

;strip  the  digit 

and 

al,Ofh 

;keep  low  nibble 

add 

al,090h 

daa 

adc 

al,040h 

daa 

dec 

si 

, 'count  the  digit 

nov 

(bx+si ] ,al 

;store  the  digit 

jn2 

wtoaOl 

pop 

si 

pop 

dx 

pop 

CX 

pop 

bx 

* 

pop 

ax 

ret 

A-W 
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tstrx'i 


-  This  progur,  sends  packet with  riiivlua  line  dele.  ,  .lata  passes 
to  the  adapter  butler  at  each  packet  transfer  tine. 

It  tests  the  possibilities  o£  overwrite  the  packet  data  stayed 
in  the  adapter  buffer  which  is  delayed  to  be  transfered  due  to 
busy  channel,  collision  or  abortion. 

**  NOTE:  **  To  allow  this  program  to  end  cleanly 

added  savvecs  and  fixvecs  routines  to  preserve  vectors  that 

could  possibly  be  changed. 

This  allows  3L  interrupt  hooks  to  be  undone  so  3L  can  be  used 
in  an  executable  program  rather  than  just  a  permanent  driver. 


include  ehwie6.h 


define  3L  functions 
•x€rn  lnitParameters:near 
extrn  InitAdaptersmear 
:Xtr  n  WhoAral :  near 

■xtrn  ResetAdapter :near 
extrn  RdRxFilter :near 
extrn  WrRxFilter:near 
ixtrn  GetRxData:near 
extrn  SetLookAheadtnear 
extrn  PutTxDatamear 


.•xtrn  SetTime:near 
extrn  Ticks: word 


ixtrn  Srand:near 
extrn  Rand: near 

extrn  SrandT:near 
:xtrn  RandT:near 
.ixtrn  Waiting: near 

extrn  getpknum:near 
ixtrn  isxmitok:near 
:xtrn  stopxmit:near 
extrn  getisrtsr:near 


ixtrn 

stop_count 

:word 

extrn 

ga_cmd_reg 

ibyte 

extrn 

myeaddr 

ibyte 

ixtrn 

_nxmit 

: dword 

ixtrn 

_ntxtmo 

:  dword 

extrn 

_ncol 

: dword 

ixtrn 

_nmxcol 

:  dword 

ixtrn 

_nrecv 

: dword 

extrn 

_nbadpk 

: dword 

extrn 

_novflo 

: dword 

ixtrn 

_ntxbad 

: dword 

extrn 

_nrunts 

: dword 

extrn 

_nbrds 

: dword 

ixtrn 

_ncolide 

: dword 

ixtrn 

mtoff 

: dword 

public 

RxProcess 

lublic 

ExitRcvlnt 

;  so  these' 11  be  in  map  for  debugging 

lublic  argstr,  crlf,  retsav,  pkthd,  wbf,  xmtpk,  fnprmt 
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;  I'lii'liC 

xr?i  tl , 

rcvsoae ,  dow! 

:o,  ;  ,svve> fi>.v«'0_,  d wtut 

l 

equ 

Oah 

or 

equ 

Odh 

minsec 

equ 

60d 

IUMXMIT 

1  equ 

lOd 

; total  packets  transmitted 

/Ma 

WAITIME 

:  equ 

16d 

;unit  in  usee. 

/Ma 

•’.ANORANGE  equ 

lid 

;upper  limit  of  random  number 

/Ma 

10DUNUM 

equ 

lOd 

;modular  number  with  count 

/Ma 

FTIMEIO 

equ 

Id 

;base  time  of  random  time  delay 

/Ma 

STOPWA1T  equ 

Od 

;l=stop  wait,  O=stop  no  wait 

/Ma 

Jpririt 

macro 

strloc 

.•print  string  at  strloc 

local 

strloc 

push 

cx 

lea 

dx, strloc 

mov 

ah,09h 

int 

21h 

pop 

cx 

endm 

ikbdin 

macro 

;get  kbd  char  in  al 

mov 

ah,  8 

int 

2lh 

.•wait  for  key 

endm 

@kbdchk 

macro 

; check  for  kbd  char 

mov 

ah,0bh 

int 

2lh 

.•returns  al;  O-nokey,  ff-keyhit 

endm 

!prx 

macro 

len,  dat  . 

; print  hex  data  in  word  dat,  len  =  1  to  4 

.•don't  put  data  in  ax 

' 

mcv 

ax,  len 

; 

push 

ax 

mov 

ax,  dat 

push 

ax 

call 

prx 

f 

add 

sp,4 

, 

endm 

1  §dmprt 

macro 

buf ,adr,len 

;hex  dump  a  data  area 

mov 

ax, len 

\ 

push 

ax 

mov 

ax , adr 

j 

push 

a'x 

mov 

ax, buf 

j 

push 

ax 

call 

dmprt 

add 

sp,6 

| 

endm 

|  CODE 

GROUP 

DATA,  RCODE, 

STACK 

DATA 

SEGMENT 

WORD  PUBLIC 

,  ;DOS  driver  init  request  header  format 

ini_hd 

struc 

db 

23  ;hdr 

len 

;!:> 

rip. it  end 

L  st 

dw 

.1 

db 

3  dup 

(0) 

db 

0 

;nun  units  (not  used) 

dend 

dd 

0 

,-code  end  set  here 

-rgo 

dw 

0 

;arg  offset 

args 

dw 

0 

;arg  segment 

db 

0 

ni_hd 

ends 

-  adapter  parameter  setup  string  - 

this  would  come  from  'device='  on  real  driver  init 
jargstr  db  "bs.sys  /A: 300  /D:l 

.  — —  fake  driver  init  request  header  for  InitParameter  input 
|  h  ini_hd  , offset  C0DE:argstr ,seg  C0DE,> 


i  ’ectsv 

dd 

22h  dup  (0) 

;save  all  vectors  so  we 

; Who Am I 
ad_info 

adapter  info  structure 
struc 

a 

db 

6  dup(0) 

;enet  addr 

.erl 

db 

0 

;major  ver 

ver2 

db 

0 

;ainor  ver 

er3 

db 

0 

;sub  ver 

er4 

db 

0 

;type  ver 

atyp 

db 

0 

.•adapter  type 

-stat 

db 

0 

.•adapter  status 

frs 

db 

0 

jbuffer  flags 

nxb 

db 

0 

.•number  of  xait  buffers 

sxb 

dw 

0 

;xmit  buffer' site 

ate 

dd 

0 

;xmit  count. 

..mte 

dd 

0 

;xmit  errs 

xmtto 

dd 

0 

;xmit  timeouts 

cvc 

dd 

0 

;rcv  count 

cvbc 

dd 

0 

? beast  rev  count 

reve 

dd 

0 

;rcv  errs 

-tc 

dd 

0 

.•retry  count 

fmd 

db 

0 

;xfer  mode  flags 

wtmd 

db 

0 

:wait  mode  flags 

extp 

dw 

0 

extension  pointer 

mtcol 

d_info 

dw 

ends 

0 

;xmit  collision 

/Ma 


■program  messages. 

cr,lf  '$' 

"tst31  load  point:  $" 

"InitParameters  returns:  S" 

"InitAdapters  returns:  $" 

"WhoAmX  returns:  $" 

"WrRxFilter  returns;  $" 

"SetLookAhead  returns:  $" 

"GetRxData  error  return:  $" 

If /'Zero  length  packet", cr, If , '$' 

"Press  any  key  to  continue", cr, If, 

"Starting  packet  receive...  any  key  to  end",cr,lf , 
"Stopping  receive", cr, If , '$' 

ii  _  511 


i  Tlf 

db 

■l’Vmsg 

db 

XPmsg 

db 

Amsg 

db 

'  ..'Amsg 

db 

WFmsg 

db 

.Amsg 

db 

■Emsg 

db 

ZPnsg 

db 

°Amsg 

db 

:Smsg 

db 

kEmsg 

db 

CLmsg 

db 

Tmsg 

db 
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'or  > 


•,K!tC</ 


ion,  :  !•::  r<  ‘V, 

db  "Sending  !  packet"  1 1,'  i' 

ob  "PutTxDjttu  return:::  $" 


JSRmsg- 

db 

“NICISR  value  is:  S" 

ISRmsg 

db 

"fJICTSR  value  is:  $" 

RPmsg- 

db 

"Total  stop  tranmission  number: 

;Ma 

X)msg 

db 

"Total  collision  number  : 

;Ma 

3Tmsg 

db 

"Returned  TSR  decision  value  : 

;Ma 

GAmsg 

db 

"GA, command  register  value  : 

;Ma 

<Mreq  db 
db 
db 
db 
db 
db 
db 


"Transmision  of  packets  has  four  options: " ,cr, If 
"  0.  Exit",cr,lf 

•!  1.  Generate  78  byte  packets  randomly  w/retry  to  replace. ",cr, 

"  2.  Generate  142  byte  packets  randomly  w/retry  to  replace. ",cr 
"  3.  Generate  270  byte  packets  randomly  w/retry  to  replace. ",cr 
cr,lf 

"Enter  your  choice:  ;Ma 


XMrasgl  db 
db 

l  <Hmsg2  db 
db 

XMmsg3  db 
db 


"Sending  78  bytes  packets  randomly  w/packet  replacing."  ;Ma 
cr,lf , ;Ma 
"Sending  142  bytes  packets  randomly  w/packet  replacing."  ;Ma 
cr,lf , '$'  ;Ma 
"Sending  270  bytes  packets  ranaomly  w/packet  replacing."  ;Ma 
cr,lf , ;Ma 


WOOmsg  db  "WhoAmI  DATA  -"(cr,lf,'$' 


tfOlmsg 

db 

II 

enet  addr 

?" 

W02msg 

db 

II 

major  ver  "• 

$" 

W03msg 

db 

II 

minor  ver 

S" 

•J04msg 

db 

II 

sub  ver 

$" 

•)05msg 

db 

II 

type  ver 

$" 

W06msg 

db 

II 

adapter  type 

$" 

'■I07msg 

db 

II 

adapter  status 

$" 

4G;,msg 

db 

ti¬ 

buffer  flags 

$" 

W09msg 

db 

ll 

number  of  xmit  buffers 

$" 

Wiomsg 

db 

It 

xmit  buffer  site 

$" 

tfllmsg 

db 

II 

xmit  count 

$" 

»12msg 

db 

II 

xmit  errs 

$" 

Wi3msg 

db 

tl 

xmit  timeouts 

?" 

rtl4msg 

db 

tt 

rev  count 

$" 

/J15msg 

db 

II 

beast  rev  count 

$" 

Wl6msg 

db 

II 

rev  errs 

$" 

W17msg 

db 

II 

retry  count 

$- 

/J18msg 

db 

II 

xfer  mode  flags 

?" 

W19msg 

db 

II 

wait  mode  flags 

$" 

W20msg 

db 

II 

extension  pointer 

$" 

/)2lmsg 

db 

II 

xmit  collision  count 

$" 

;  misc 

parameters 

retsav 

dw 

7 

segval 

dw 

7 

toff 

dw 

7 

erred 

db 

0 

! 


;Ha 


pklock  db 
pklen  dw 
pkerr  dw 


0 

0 

0 
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okent  dw 

’  -'kcoui't  dw  !> 

savax  dw  ? 

receive  buffer 

pkthd  db  32  dup(O)  ;packet  header  portion  for  SetLookAhead 

:  pktdat  db  i500  dup(O)  ;  remainder  of  pkt  buffer 

WhoAml  buffer 

1  wbf  ad_info  <>  ,-WhoAmI  buffer 

i<  *****************  ready  packet  data  ************************* 

i  ; transmit  64  data  byte  packet 
:mtpk  label  byte 

lesta  db  02h,60h,8ch,01h,02h,03h  ;arbitrary  dest  addr 

sorca  db  00h,00h,00h,0fh,0fh,0fh  , -source  addr  -  fill  from  who  ea 

olen  db  0,64  ; packet  length 

idata  db  00h,00h,00h,00h,04h,05h,06h,07h 

db  08h , 09h , oah , obh , ooh , ooh , OOh , ooh 

db  10h,llh,12h,13h,14h,15h,16h,17h 

db  18h,19h, lah , Ibh , lch , ldh , leh , If h 

db  20h, 21h , 22h, 23h, 24h, 25h , 26h , 27h 

db  28h , 29h , 2ah, 2bh, 2ch , 2dh , 2eh , 2fh 

db  30h,31h,32h,33h,34h,35h,36h,37h 

db  38h,39h,3ah,3bh,3ch,3dh,3eh,3fh 

xplen  dw  S-xmtpk’  ; packet  len 

;****************  ready  ’packet  data  ************************* 

■transmit  128  data  byte  packet 
:mtpk2  label  byte 

desta2  db  02h,60h,8ch,0lh,02h,03h  .-arbitrary  dest  addr 

->orca2  db  00h,O0h,O0h,0fh,0fh,0fh  , -source  addr  -  fill  from  who  ea 

ilen2  db  0,123  ,-packet  length 

I  pdata2  db  O0h,00h,00h,00h,04h,05h,06h,07h 

db  08h , 09h , Oah , obh , OOh , OOh , ooh , ooh 

;  db  I0h,llh,l2h,l3h,l4h,l5h,l6h,l7h 

db  18h,19h,lah,lbh,lch,ldh,leh,lfh 

db  20h,  21h,  22h ,  23h,  24h,  251l ,  26h ,  27h 

db  28h,29h,2ah,2bh,2ch,2dh,2eh,2fh 

db  30h,31h,32h,33h,34h,35h,36h,37h 

I  db  3  8h , 39h , 3ah , 3bh , 3ch , 3dh , 3eh , 3  f h 

■  db  O0h,0lh,02h,03h,04h,05h,06h,07h 

db  08h , 09h , Oah , Obh , Och , Odh , Oeh , Of h 

1  db  10h,llh,12h,13h,14h,15h, 16h,17h 

db  I8h,19h,lah,lbh,lch,ldh,leh,lfh 

db  20h, 21h,22h,23h, 24h , 25h , 26h , 27h 

db  28h,29h,2ah,2bh,2ch,2dh,2eh,2fh 

db  30h, 31h, 32h, 33h, 34h, 35h,  36h , 37h 

db  38h , 39h , 3ah,3bh , 3ch , 3dh , 3eh , 3f h 

xplen2  dw  $-xmtpk2  ,-packet  len 

*****************  ready  packet  data  ************************* 

; transmit  256  data  byte  packet  *  ' 

<mtpk3  label  byte 
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k'!  1  i  S  :b  Oh, )Sch,'}!h, •).*!!, t;  >!,  /.sluss  it/  t  ».h!t 

;}S>  OOh,OOh,OOh,OSh,im>,ni  rt  jioui.o  uiiit  -  till  li  >.m  who  i\i 

1 eti.i  db  0,255  /packet  length 

pdata3  db  00h,oih,02h,03h,04h,05h,06h,o7h 

db  03h ,  09h ,  Oah ,  Obh ,  OOh ,  OOil ,  OOh ,  OOh 

db  10h,llh,i2h,i3h,i4h,iSh,l6h,l7h 

db  I8h , i9h , lah , lbh , lch , ldh , leh , l f  h 

db  20h,21h,22h,23h,24h,2Sh,26h,27h 

db  28h , 29h , 2ah , 2bh ,  2ch , 2dh , 2eh , 2  f h 

db  30h,31h,32h,33h,34h,3Sh,36h,37h 

db  38h , 39h , 3ah , 3bh , 3ch , 3dh , 3eh , 3  f h 

db  00h,0lh,02h,03h,04h,05h,06h,07h 

db  08h , 09h , Oah , Obh , Och , Odh , Oeh , Of h 

db'  I0h,llh,l2h,l3h,14'n,l5h,l6h,i7h 

db  I8h , I9h , lah , lbh , lch , ldh , leh , if h 

db  20h,21h,22h,23h,24h,2Sh,2'6h,27h 

db  28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

db  30h, 31h, 32h, 33h, 34h, 35h , 36h, 37h 

db  38h,39h,3ah,3bh,3ch,3dh,3eh,3fh 

db  00h,01h,02h,03h,04h,05h,06h,07h 

db  08h , 09h , Oah , Obh , Och , Odh , Oeh , Of h 

db  I0h,nh,i2h,l3h,l4h,l5h,l6h,  I7h 

db  18h , 19h , lah , lbh , lch , ldh , leh , 1 f h 

db  20h,2lh,22h,23h,24h,25h,26h,27h 

db  28h, 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

db  30h, 31h, 32h, 33h, 34h, 35h, 36h , 37h 

db  38h,39h,3ah,3bh,3ch,3dh,3eh,3fh 

db  ooh,oih,02h,03h,04h,05h,06h,07h 

db  08h , 09h , oah , Obh , Och , Odh , Oeh , Of h 

db  10h(llh,12h,13h,14h,15h,16h,17h 

db  I8h,19h,iah,lbh,lch(ldh,leh,lfh 

db  20h,21h,22h,23h,24h,25h,26h,27h 

db  28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

db  30h,31h,32h,33h,34h,35h,36h,37h 

db  38h, 39h, 3ah, 3bh, 3ch, 3dh , 3eh, 3fh 

plen3  dw  $-xmtpk3  ; packet  len 

/transmit  largest  packet,  new  data  area/Ma 

, xmtpkl  label  byte 


zdestal 

db 

02h,60h,8ch,0lh,02h,03h  /arbitrary  dest  addr 

sorcal 

db 

00h,00h,00h,0fh,0fh,0fh  /source  addr  -  fill  from  who  ea 

plenl 

dw 

o, 

,1500  /packet  length 

;pdatal 

dw 

187  dup  (0001h,0203h,0405h,0607h,0809h/0a0bh,0c0dh,0e0fh) 

* 

dw 

0fflih,0ffi3h 

;xplenl 

dw 

$• 

-xmtpkl  /packet  len 

our 

db 

0 

/Ha 

in 

db 

0 

zMa 

sec 

db 

0 

/Ha 

ount 

dw 

0 

/Ha 

ountl 

dw 

0 

/Ha,  counts  actual  packet  number 

funcnum 

db 

0 

/Ha 

curard 

dw 

0 

/Ha,  summation  of  rand  numbers  for  packet  len 
/Ha,  "  "  "  "  "  rime. 

umrdt 

dw 

0 

vknura 

db 

0 

/Ha,  packet  number  1=78,  2=142,  3=270  bytes 

pendflag  db 

0 

/Ha,  2  -  no  pending  data,  0  -  pending  data 
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DATA 


itack  segment  stack  ' 

STACK  ENDS 


.!CODE  SEGMENT  WORD  PUBLIC 

assume  cs:code,,  ds:code 


main  routine 


:strx4  proc  near 

mov  ax , CODE 

mov  ds , ax 

mov  es,ax 

mov  ax,cs 

mov  segval,ax 

:  mov  toff, offset  CODE:tst31  ;Ma 

mov  toff, offset  C0DE:tstrx4  ;Ma 

Sprint  TVmsg  print  prog  load  addr 

Sprx  4 , segval 

Sprint  CLmsg 

Sprx  *4,  toff 

Sprint  crlf 

Sprint  PAmsg  rwait  for  key 

Skbdin  '  ;  get  it 

call  savvecs  ;save  a  bunch  of  vectors  for  later 

mov  bx, offset  CODE:ih  ;fake  driver  init  request  buffer 

•  ************  *  *  ******** 

call  InitParameters 

•  ********************** 
mov  retsav,ax 

Sprint  iPmsg 
Sprx  4,retsav 
Sprint  crlf 
mov  ax.retsav 
or  ax, ax 
jz  irdt_ok 

mov  al,l 
jmp  oout 

.nit_ok: 

mov  di, offset  CODE:RxProcess 
•  ********************** 

call  InitAdapters 

•  ********************** 

mov  retsav.ax 

Sprint  iAmsg 
Sprx  4,retsav 
Sprint  crlf 
mov  ax,retsav 
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ia_ok: 


or  s'  ,.t>: 

j/.  *  s  ok 

mov  or:  cd , 

jmp  uninit 


call  douho  ;cali  WhoAml  and  list  result 

;  SetLookAhead  is  not  required  but  added  for  reference 
xor  dl,dl  ;adapter  0 

mov  cx,32  : LookAhead  size 

•  ********************** 

call  SetLookAhead- 

•  ********************** 
mov  retsav, ax 

Sprint  LAmsg 
Sprx  4, retsav 

Sprint  crlf 
mov  ax(retsav 
or  ax, ax 

jz  la_ok 

mov  erred ,4 
jmp  uninit 

la_ok: 

mov  pkcount,0 

xor  dl,dl  ; adapter  0 

it;  mov  ax,0ih  ;set  filter  board  address 

mov  ax,0ch  ;set  filter  to  promis/bcast 

•  ********************** 

call  ;  WrRxFilter 
•  ********************** 

mov  retsav, ax 

Sprint  WFmsg 
Sprx  4 , retsav 
Sprint  crlf 
mov  ax, retsav 
or  ax, ax 

jz  wf_.ok 

mov  erred , 5 
jmp  uninit 

vf _ok : 


;do  xmit  or  rev  per  user  input 

fnprmt: 

Sprint  FNmsg 

Skbdin  ;get  input  selection 

push  ax 

Sprint  crlf 

pop  ax 

emp  al,'r' 

je  jdoreev  ;Ha 

emp  al,'t' 

je  doxmt  ;Ma 

jmp  fnprmt  ;Ma 
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iofcai: 


BOV 


stop_coun 


:Ka,  clear  /  scops 


nov 

word  ptr  _nx=it,G 

;y.a. 

clear 

nov 

word  ptr  _nxnit+2,0 

;Ka# 

_nxoit 

nov 

word  ptr  _nrecv,Q  t 

;Ha, 

clear 

nov 

word  ptr  _nrecv*2,0 

;Ha, 

_nrecv 

nov 

word  ptr  _ncolide,0 

;Ka, 

clear 

nov 

word  ptr  _ncolide*2,0 

;Ka, 

_ncolide 

mov  „di, offset  CODS:Hx?rocess 

;  ********************** 
call  InitAdapters 

;  ********************** 
nov  retsav.ax 


reinitialize 


adapter  in  a  known 


state 


;  SetLookAhead  is  not  required  but  added  for  reference 


xor 

dl,dl 

.•adapter  0 

nov 

CX,32 

;LookAhead  size 

;  ********************** 

call 

SetLookAhead 

•  ********************** 

nov 

retsav.ax 

nov 

_  nkcount.o 

xor 

dl,dl  5 

; adapter  0 

;set  filter  board  address 

nov 

ax.Olh 

nov 

ax,Och 

;set  filter  to  proais/bcast 

;  *********************** 
call  WrRxFilter 
•  ************************** 


nov 

retsav.ax 

©print 

XMreq 

,-Ha 

©kbdin 

;Ha, 

get  input  selection 

push 

ax 

;  Ha 

©print 

crlf 

;Ma 

pop 

ax 

;Ha 

emp 

al,'l' 

;Ma 

je 

jdoxml 

;Ka, 

transmit  78  byte  packets 

crap 

al, '2' 

;Ha 

je 

jdoxm2 

;Ka, 

transmit  142  byte  packets 

crap 

al, '3' 

;Ma 

je 

jdoxra3 

;Ha, 

transmit  270  byte  packets 

crap 

al, '0' 

;Ha 

je 

juninit 

;Ma, 

end  of  transmision 

jmp  . 

doxmt 

;Ha 

raov 

erred, al 

;Ha 

jmp 

uninit 

;Ma 

juninit 

: 

jmp 

uninit 

;Ka 

jdoxral: 

jmp 

doxral 

jdoxm2: 

jmp 

doxm2 

jdoxm3: 

jmp 

doxm3 

*pr;n: 

VO— i 

;Ha 

sov 

fUECnUn,  Id 

:Xa 

SSV 

count, Id 

:Ka,  starp  count 

eov 

countl ,  Id 

:Ha,  start  countl 

EC  V 

cx.KUJBSHIT 

*epXl: 

.* 

2USh 

ex: 

;Ha 

EOV 

ax, count 

:Ha 

EOV 

byte  ptr  edataj 

13], ah  ;Ha,  nark  packet  sequential  nuaber  h 

EOV 

byte  ptr  pdata(14],al  ;Ka,  S  lew  bytes 

MV 

ax.ceur.tl 

:Ha 

EOV 

byte  ptr  pdata[ 

15], ah  ;Ha,  nark  actual  packet  nuaber  on  high 

eov 

byte  ptr  pdata[ 

16], al  ;Ha  S  lew  bytes 

call 

Xnitl 

;Ka,  transnit  one  "canned”  packet 

jxsitva 

it: 

rev 

dx,  Od 

;Ka 

nov 

ax , count 

;Ha 

nov 

bx,HODU!iUM 

;Ka 

div 

bx 

;Ha 

EOV 

ax,  ex 

;Ha,  pass  seed  nuaber  to  SrandT 

EOV 

bX,3ANDRAKGE 

;Ma,  pass  upper  randan  linit  to  SrandT 

call 

SrandT 

;Ka,  set  randon  seed  and  upper  linit  nunhers 

call 

RandT 

;Ma,  get  randon  nunber 

add 

surrdt.ax 

EOV 

dX.FTIHElO 

;Ha,  load  interfraae  tine 

EUl 

dx 

;Ka,  get  total  delay  tine  in  nicroseconds 

call 

Waiting 

;Ha,  delay 

xor 

ax, ax 

;Ha,  reset  ax 

nov 

si, WORD  PTR  atoff  ;Ha,  load  ieparans  addr. 

EOV 

dx, I ERASE [si  3 

;Ma 

add 

dx,NXCNCR 

;Ha,  get  HICNCR  address 

in 

al,dx 

;Ha,  read  collision  nunber 

add 

word  ptr  _ncolide,ax  ;Ha 

adc 

word  ptr  _ncolide+2,0  ;Ha 

call 

isxaitok 

;Ha,  check  transnit  status 

enp 

al ,  id 

;Ha,  returned  transnit  status  value  -  true 

jz 

incountll 

;Ha,  trasnission  conplete 

nov 

ax,STOPWAIT 

;Ma,  set  up  wait/no  wait  flag 

call 

stopxait 

;Ma,  stop  NIC  to  transnit 

jnp 

short  incountl 

;Ma 

incountll: 

add 

word  ptr  _nxnit, 

,1  ;Ha,  bump  counter 

adc 

word  ptr  _nxrait+2,0  ;Ha 

inc 

countl 

;Ma,  increament  of  actual  pkt  S 

inc 

count 

;Ma,  increanent  of  total  pkt  § 

EOV 

pendflag.Od 

;Ma,  next  data  -  pending 

jmp 

short  passl 

jrepXl: 

jrap 

short  repXl 
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— L 


cl  total  pk! 

3SCV 

pcr.dflog,2d 

;Ha,  next  d  ta  -  no  pending 

pop 

cx 

dec 

c>: 

* 

_,jnz 

jrepXl 

call 

dovho 

;H3,  list  HhoAnI  result 

Sprint 

; 

Sprx 

4 ,stcu_count 

Sprint 

crlf 

Sprint 

COssg 

nov 

bx.word  ptr  _ncolide+2 

Sprx 

4,bx 

Sprint 

crlf 

Sprint 

GA=sg 

nov 

bl,ga_cmd_reg 

Sprx 

4,bx 

Sprint 

crlf  . 

Sprint 

PAnsg 

nov 

ah, 8 

int 

2lh 

;wait  for  key 

jnp 

doxat 

;Ha, 

t  ——————————— 

;  transnit  122  data  byte  packets  w/packet  replace. 
dcxn2 : 


6 print 

XH=sg2 

;Ma 

mov 

funcr.un,  2d 

;Ha 

nov  “ 

count, Id 

;Ma,  start  count 

nov 

ccuntl, Id 

;Ma,  start  countl 

nov 

cx.NUKXMIT 

:epX2 : 

push 

CX 

;Ma 

nov 

ax, count 

;Ha 

nov 

byte  ptr  pdata2[l3J,ah  ;Ha,  nark  packet  sequential  number  1 

nov 

byte  ptr  pdata2[14] ,al  ;Ma,  &  low  bytes 

nov 

ax.countl 

;Ha 

nov 

byte  ptr  pdata2[l5] ,ah  ;Ma,  mark  actual  packet  number  high 

nov 

byte  ptr  pdata2[l6],al  ;Ma  &  low  bytes 

call 

Xmitl 

;Ha,  transmit  one  "canned"  packet 

xmitwait: 

nov 

dx,Od 

;Ma 

nov 

ax, count 

;Ha 

nov 

bx , HODUNUH 

;Ma 

div 

bx 

;Ha 

nov 

ax,dx 

;Ma,  pass  seed  number  to  SrandT 

nov 

bx , RAHDRAHGE 

;Ma,  pass  upper  random  limit  to  SrandT 

call 

SrandT 

;Ma,  set  random  seed  and  upper  limit  numbers 

call 

RandT 

;Ma,  get  random  number 

add 

sumrdt,ax 

nov 

dx,FTIMS10 

,\Ma,  load  interframe  time 

mul 

dx 

;Ma,  get  total  delay  time  in  microseconds 
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^  ,!  J 

;X.i,  I«1  :/ 

>:or 

ax  ,  a>: 

:  Ka,  reset  j>. 

KOV 

si, WORD  PTR  ntoff  ;  load  ieparams  addr. 

nov 

dx , IE3ASEI si ] 

;  Ma 

add 

dx,!lIC!ICR 

;  Ha,  get  UICtiC.R  address 

in 

al,dx 

;  Ma,  read  collision  nunber 

add 

word  ptr  _ncolide,ax  ;  Ha 

adc 

•word  ptr  _ncolide+2 , 0  ;  Ka 

call 

isxnitok 

;Ma,  check  transmit  status 

cnp 

ax.  Id 

;Ma,  returned  transmit  status  value  -  true 

jz 

incount21 

;Ma,  trasnission  complete 

nov 

ax,STOPWAIT 

;Ma,  set  up  wait/no  wait  flag 

call 

stooxnit 

;Ma,  stop  MIC  to  transmit 

jnp 

short  incount2 

;Ma 

incount21: 

add 

word  ptr  _nxnit 

,  1  ;Ma,  bump  counter 

adc 

word  ptr  nxnit 

+2,0  ;Ma 

inc 

countl 

;Ma,  increament  of  actual  pkt  $ 

inc 

count 

;Ma,  increament  of  total  pkt  g 

jnp 

short  pass2 

incount2: 

inc 

count 

;Ha,  increament  of  total  pkt  § 

pass2: 

pop 

cx 

;Ma 

dec 

cx 

•;Ma 

jn2 

jrepX2 

;Ma 

call 

dowho 

;Ha,  list  WhoAmI  result 

Sprint 

RPnsg 

t 

Sprx 

4, stop  count 

Sprint 

crlf 

Sprint 

COmsg 

mov 

bx,word  ptr  _ncolide+2 

Sprx 

4,bx 

Sprint 

crlf 

jnp 

doxmt 

;Ma 

jrepX2: 

jnp 

repX2 

;  transmit  256  data  byte  packet  w/packet  replacing. 

1 

doxm3 : 

Sprint 

XHmsg3 

;Ha 

mov 

funcnum,3d 

;Ma 

mov 

count, Id 

;Ha,  start  count 

mov 

countl, id 

;Ma,  start  countl 

mov 

cx.NUHXHIT 

repX3: 

push 

CX 

;Ma 

nov  ax, count  ?Ma 

mov  byto  ptr  pdata3[13 ] ,ah  ;Ma,  mark  packet  sequential  number  h 
mov  byte  ptr  pdata3[14] ,al  ;Ma,  &  low  bytes 
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mov 

ix, count! 

i 

mov 

byte  ptr  pdataj[  15  |  ,ah  :Ma,  mark  actual  packet  numi'or  on 

BOV 

byte  ptr  pdatj3[ 10) ,el  ;Ha,  &  low  bytes 

call 

Xnitl 

;Ma,  transmit  one  "canned"  packet 

. xnitwait: 

mov 

ax,0d 

;Ma 

BOV 

ax , count 

;Ma 

nov 

bX , MODUNUM 

;Ma 

div 

bx 

;Ma 

nov 

ax,dx 

;Ma,  pass  seed  number  to  SrandT 

BOV 

bx , RANDRANGE 

;Ma,  pass  upper  random  limit  to  SrandT 

call 

SrandT 

;Ka,  set  random  seed  and  upper  limit  numbers 

call 

RandT 

;Ma,  get  random  number 

add 

sumrdt,ax 

mov 

dx,FTIME10 

;Ma,  load  interframe  time 

mul 

dx 

;Ma,  get  total -delay  time  in  microseconds 

call 

Waiting 

;Ma,  delay 

xor 

ax,  ax 

;  Ma,  reset  ax 

mov 

si, WORD  PTR  mtoff  ;  load  ieparams  addr. 

mov 

dx , IEBASE[si ] 

;  Ma 

add 

dX,NICNCR 

;  Ma,  get  MICNCR  address 

in 

al,dx 

;  Ma,  read  collision  number 

add 

word  ptr  _ncolide,ax  ;  Ka 

adc 

word  ptr  _ncolide+2,0  ;  Ma 

call 

isxmitok 

;Ma,  check  transmit  status 

cmp 

ax,  Id 

;Ma,  returned  transmit  status  value  -  true 

jz 

incount3l  . 

;Ma,  trasmission  complete 

mov 

ax.STOPWAIT 

;Ma,  set  up  wait/no  wait  flag 

call 

stopxmit 

;Ma,  stop  NIC  to  transmit 

jmp 

short  incount3 

;Ma 

mcount3l: 

add 

word  ptr  _nxmit 

1  ;Ma,  bump  counter 

adc 

word  ptr  _nxmit+2,0  ;Ma 

inc 

countl 

;Ma,  increament  of  actual  pkt  # 

inc 

count 

;Ma,  increament  of  total  pkt  # 

jmp 

short  pass3 

,ncount3: 

inc 

count 

;Ma,  increament  of  total  pkt  # 

>ass3: 

pop 

cx 

dec 

cx 

• 

jnz 

jrepX3 

call 

dowho 

;Ma,  list  WhoAmI  result 

Qprint 

RPmsg 

; 

@prx 

4 , stop_count 

Sprint 

crlf 

Sprint 

COmsg 

mov 

bx,word  ptr  _ncolide+2 

Sprx 

4  ,bx 

Sprint 

crlf 

. 

jmp 

doxmt 

;Ma 
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;  receive  packers 

*************  *r*  ***♦***'***★*********■*****’*#•**★ 
joreev: 

call  revsone  ;recieve  packets  for  till  key  hit 

nov  erred, al 

uninit: 

;  ********************** 
call  ResetAdapter 

•  **#,*****i,*A*********** 


call 

fixvecs 

mov 

a 1, erred 

oout: 

raov 

ah,4ch 

int 

2ih 

tstrx4 

endp 

xnitl  proc  near 
•  —  -  ’  ' 

;  transnit  one  "canned"  packet 


setl: 


; setup  for  PutTxData 
emp  funcnun,3d 

je  set? 

emp  funcnura,2d  ' 

je  set2 


;Ma 
'  ;Ma 
;Ma 
;Ma 


;put  our  eaddr  in  xmit  pkt 
nov  ax, word  ptr  wbf.ea 

nov  word  ptr  sorca.ax 

nov  ax, word  ptr  wbf.ea+2 

nov  word  ptr  sorca+2,ax 

nov  ax, word  ptr  wbf.ea+4 

nov  word  ptr  sorca+4 , ax 


nov 

or 

test 

jz 

nov 

jnp 

pending: 

nov 

nopending: 

nov 

nov 

nov 

jnp 


ax , STOPWAIT 

al,pendflag 

al,3d 

pending 

dx,70h 

short  nopending 


;test  pending  flag  and  wait  status 
.•pending  if  STOPWAIT=0  and  pendflag=0 
;req  id  and  no  wait,  with  data  pass,  no  xnit 
.•count 


dx,30h 


;req  id  and  no  wait,  with  data  pass/pending 
;data,  no  xnit  count 


si, offset  CODE:xntpk  ;xnt  pkt  buffer 
bx.xplen  ;set  lengths 

cx,bx 

short  setnoTx  ;Ma 


set2: 


;put  our  eaddr  in  xnit  pkt 
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! 
I 

ix,wo:d  ptr  '..-hi  .  ou  I 

wrrti  ptr  scrca2,ax 
j>: .word  pur  wbl.eai-2 
word  ptr  sorca2+2,ax 
ax, word  ptr  wbf.ea+4 
word  ptr  sorca2+4,ax 

bov  dx,70h  ;Ma ,  req  id  no  wait  with  data  pass,  no  xmit 

;  count 

nov  si, offset  C0DE:xmtpk2  ;xBt  pkt  buffer 

aov  bx,xplen2  ;set  lengths 

bov  cx , bx 

jap  short  setnoTx  ;Ma 

set3: 

;put  our  eaddr  in  xnit  pkt 
nov  ax, word  ptr  wbf.ea 

nov  word  ptr  sorca3,ax 

bov  ax, word  ptr  wbf.ea+2 

bov  word  ptr  sorca3+2(ax 

nov  ax, word  ptr  wbf.ea+4 

bov  word  ptr  sorca3+4,ax 

bov  dx,70h  ;Ma,  req  id  no  wait  with  data  pass,  no  xnit 

;count 

mov  si, offset  C0DE:xmtpk3  ;xmt  pkt  buffer 
mov  bx,xplen3  ;set  lengths 

nov  cx , bx 

setnoTx:  bov  di,Offffh  ;no  TxProcess 

;  ********************** 
call  PutTxPata 

;  ********************** 
bov  retsav,ax 


Sprint 

XRnsg 

;Ma 

Sprx 

4,retsav 

;Ma 

Sprint 

crlf 

;Ma 

BOV 

ax,retsav 

ret 


xmitl  endp 


BOV 

BOV 

BOV 

BOV 


rcvsome  proc  near 

i 

;  following  code  to  dunp  received  packets  for  a  fixed  time 
Sprint  RSnsg 

chkpk : 

Skbdchk  ;key  pressed? 

or  al,al 

jz  rdbfr 

jmp  wedone 

rdbfr: 

test  pklock.Offh  ;got  a  pkt? 

jnz  lstpkt 

jnp  chkpk 

lstpkt: 

test  pkerr.Offffh  ;anv  error 
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•  *  +  +  ***>,****+  +  *  +  +*>***  + 
jox/.  no  1  i'ii 

r.:ov  es:pkerr,ax 

mov  cs:pklen,cx 

olen: 

pop  cx 

pop  bx 

ret 

.xProcess  endp 


ExitRcvInt 

ExitRcvInt  proc  near 
iret 

".xitRcvInt  endp 


-  get  and  print  WhoAmI  statikti 


ICS - 


Jcwho  proc  near 

push  es 

xor  dl,dl  ; adapter  0 

•  ********************** 

call  WhoAmI 

•  ********************** 

mov  retsav,ax 


Sprint 

WABsg 

Sprx 

4 ,retsav 

Sprint 

crlf 

BOV 

ax , retsav 

or 

ax,  ax 

jz 

wa_ok 

BOV 

erred, 3 

jmp 

uninit 

BOV 

si,di 

BOV 

di, offset 

CODE:wbf 

push 

ds 

push 

ds 

push 

es 

pep 

ds 

pop 

es 

BOV 

cx,24 

cld 

BOVSW 

;copy  who  buffer 

pop 

ds 

pop 

es 

call 

whodat 

.•print  the  WhoAmI  data 

Sprint  PAmsg 
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riouho 


.jhodat 


prtea: 


ml  .Mi!  !or  key 

ret 

endp 


print  WhoAnI  data  - 

PROC 

near 

Sprint 

WOOlssg 

Sdmprt 

coffset  CODE:wbf>,0 , 48 

Sprint 

WOlnsg 

nov 

CX,  6 

nov 

bx,0 

push 

bx 

Sprx 

2,<word  ptr  (bx+offset  CODE:wbf .ea-l)> 

pop 

bx 

inc 

bx 

loop 

prtea 

Sprint 

crlf 

Sprint 

H02rr.sg 

Sprx 

2,<word  ptr  wbf.verl-l> 

Sprint 

crlf 

Sprint 

W03msg 

Sprx 

2,<word  ptr  vbf .ver2-l> 

Sprint 

crlf 

Sprint 

'W04rasg 

Sprx 

2,<word  ptr  wbf.ver3-l> 

Sprint 

crlf 

Sprint 

W05rasg 

Sprx 

2,<word  ptr  wbf.ver4-l> 

Sprint 

crlf 

Sprint 

W06msg 

Sprx 

2,<word  ptr  wbf.atyp-l> 

Sprint 

crlf 

Sprint 

H07rasg 

Sprx 

2,<word  ptr  wbf.astat-l> 

Sprint 

crlf 

Sprint 

W08nsg 

Sprx 

2,<word  ptr  wbf.bfrs-l> 

Sprint 

crlf 

Sprint 

W09msg 

Sprx 

2,<word  ptr  wbf.nxb-l> 

Sprint 

crlf 

Sprint 

WlOmsg  .  , 

Sprx 

4,<word  ptr  wbf.sxb> 

Sprint 

crlf 
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('print 

Wi  liS'KJ 

Sprx 

4 ,  -.word 

ptr 

wbf .  xintc  i  2  - 

Opr>: 

4 , <word 

ptr 

wbf  .xrato 

Sprint 

crif 

Sprint 

W12rasg 

Sprx 

4 , cword 

ptr 

wbf .xmte+2> 

Sprx 

4 , <word 

ptr 

wbf .xmte> 

Sprint 

crlf 

Sprint 

W13msg 

Sprx 

4 , <word 

ptr 

wbf ,xmtto+2> 

Sprx 

4 , <word 

ptr 

wbf .xntto> 

Sprint 

crlf 

Sprint 

W14msg 

Sprx 

4 , <word 

ptr 

wbf . rcvc+2> 

Sprx 

4 , <word 

ptr 

wbf . rcvc> 

Sprint 

crlf 

Sprint 

WISnsg" 

Sprx 

4 , <word 

ptr 

wbf . rcvbc+2> 

Sprx 

4 , <word 

ptr 

wbf . rcvbc> 

Sprint 

crlf 

Sprint 

Wl6nsg 

Sprx 

4 , <word 

ptr 

wbf .rcve+2> 

Sprx 

4 , <word 

ptr 

wbf . rcve> 

Sprint 

crlf 

Sprint 

W17n'sg 

Sprx 

4 , <word 

ptr 

wbf .rtc+2> 

Sprx 

4 , <word 

ptr 

wbf . rtc> 

Sprint 

crlf 

Sprint 

Wl8rasg 

Sprx 

2 , <word 

ptr 

wbf .xfmd-l> 

Sprint 

crlf 

Sprint 

W19msg 

Sprx 

2 ,  <word 

ptr 

wbf .wtmd-l> 

Sprint 

crlf 

Sprint 

W20msg 

Sprx 

4 , <word 

ptr 

wbf . extp> 

Sprint 

crlf 

Sprint 

W21msg 

Sprx 

4 , <word 

ptr 

wbf .xmtcol> 

Sprint 

crlf 

ret 

tfhodat  endp 


>avvecs  proc  near 
push  ds 
push  es 
push  si 


/Ha 

/Ma 

/Ha 
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push 


rep 


BOV 

ax,ds 

mov 

es,ax 

xor 

ax, ax 

nov 

ds,ax 

nov 

cx ,  22h*2  ;vect< 

mov 

di, offset  CODErvectsv 

xor 

cld 

cli 

si, si 

movsw 

sti 

;save 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

pop 

ret 

ds 

21h,  2  wds  per 


'em  all 


savvecs  endp 


fixvecs  proc  near 
push  es 
push  si 
push  di 
push  ex 


0  -  21h,  2  wds  per 


'em  all 


pop  ex 
pop  di 
pop  si 
pop  es 
ret 

fixvecs  endp 


xor 

ax,  ax 

IUOV 

.  es,ax 

mov 

CX,22!l*2 

/vectors 

mov 

si, off set 

CODE:vectsv 

xor 

cld 

cli 

di,di 

movsw 

sti 

.•restore 

dmprt  -  produces  dump  listing,  calling  parameters  are  pushed  on  stack 
(converted  from  a  C  routine) 

INPUTS: 

(bp+4)  ”  data  address 

(bp+6)  =  starting  address  for  line  headers 

(bp+S)  -  length  of  data  to  print 
OUTPUT: 

Dump  listing  to  stdout  device 


dmprt  proc  near 
push  bp 
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mov 

>  -'i 

bx ,  bp 

sub 

bx , Och 

; local  vars 

mov 

sp,bx 

push 

si 

mov 

ax, [ bp+8 ) 

;len 

dOOSc: 

sub 

dx,dx 

mov 

cx,10h 

d0061: 

div 

cx 

mov 

(bp-4 )  ,ax 

; lines 

d0063: 

mov 

(bp-6 ] ,dx 

;rem 

50056 : 

mov 

word  ptr 

(bp-8),0  ;i 

1006b: 

mov 

word  ptr 

(bp-0ah],0  ;line 

d0070: 

jmp 

d0158 

d0073: 

push 

dx 

mov 

dl,cr 

;000d 

mov 

ah,  2 

int 

2lh 

mov 

ell,  If 

;OOOA 

mov 

ah',  2 

*• 

int 

21h 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

mov 

dl,'  ' 

mov 

ah  ,2 

int 

2lh 

pop 

dx 

mov 

ax,  4 

push 

ax 

mov 

ax, (bp+6] 

;adr 

add 

ax, (bp-8 j 

;i 

push 

ax 

call 

prx 

add 

sp,  4 

;0004 

push 

dx 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

pop 

dx 

bov  word  ptr  (bp-0ch],0  ;j 


J00c5:  test  byte  ptr  (bp-0ch),3  ;j 
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mov 

ax,  2 

,-0002 

push 

ax 

mov 

bx, [bp-8] 

;  i 

mov 

si, (bp+4  ] 

,;buf 

mov 

ah, (bx+si)  ;buft 

push; 

ax 

call 

prx 

add 

sp,4 

,-0004 

inc 

word  ptr 

(bp-8)  ;i 

inc 

word  ptr 

(bp-och) 

crap 

word  ptr 

[bp-och] ,loh 

jb 

d00c5 

push 

dx 

bov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

BOV 

dl,'  ' 

BOV 

ah,  2 

int 

2.1h 

pop 

dx 

sub 

word  ptr 

(bp-8) ,10h 

BOV 

word  ptr 

(bp-och] ,0 

n 


n 


;  i ,0010 

rj 


,-do  ‘ascii 

,-i 

dOH3: 

mov 

bx, [bp-8] 

mov 

si, [bp+4 3 

,-buf 

push 

mov 

dx 

dl, [bx+si] 

;buf [ i ] 

cmp 

dl,'  ' 

jb 

d013f 

cmp 

dl,7fh 

jb 

d0142 

3013f : 

mov 

dl , ' . ' 

;002e 

d0142: 

mov 

sh,2 

int 

21h 

pop 

dx 

inc 

word  ptr  ibp-8] 

;i 

inc 

word  ptr  [bp-Och]  ?D 

crap 

word  ptr  [bp-och]  ,lOh  ‘  ,-0010 

jb 

d0113 

inc 

word  ptr  [bp-Oah]  ;lme 

d0158: 

mov 

ax, (bp-4) 

; lines 

cmp 

[bp-Oah), ax 

,-line 

jnb 

d0163 

dO  )/ 5 


-i~P 


/  / 

d0163 :  cmp 
jnz 
jnp 


word  ptr  [b'p-6),0 
d016c 
,d0272 


;ren 


,016c: 

i  push  dx 

mov  dl,cr  .  roood 

mov  ah, 2 

int  21h 

mov  dl ,  If  -‘OOOa 

mov  ah ,  2 

int  21h 

'  mov  dl , ' 

mov  ah , 2 

int  2lh 

mov  dl,'  ' 

mov  ah, 2 

int  2lh 

pop  dx 


mov  ax, 4 

push  ax 

mov  ax,(bp+6] 

add  ax,(bpr8] 

push  ax 

call  prx 

add  sp , 4 

push  dx 

mov  dl , '  ' 

mov  ah , 2 

int  21h 

mov  dl , '  ' 

mov  ah , 2 

int  21h 

pop  dx 


;0G08 

;adr 


;0004 


mov  word  ptr  (bp-0ch],0 


jmp  short  d01c3 


10198:  test 

byte  ptr  (bp-0ch],3 

jnz 

d01a8 

push 

dx 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

pop 

dx 

d01a8:  mov 

ax,  2 

;  0002 

push 

ax 

mov 

bx, (bp-8  ] 

;i 

mov 

si, (bp+4 ) 

;buf 

mov 

ah,(bx+si) 

;buf  { 

push 

ax 

call 

prx 
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'<01c3: 


doled: 


iOldd: 


d01f4: 


d0219: 


d024d: 

! 


Inc 

i  •••  *  '  i 

— — -  «•  *  "s-  ’  * 

•Si, 

20V 

ax, [bp-6] 

:re= 

cep 

[bp-Och] , ax 

n 

jb 

doles 

jcp 

short  cOif  4 

test; 

byte  ptr  [bp-Och], 3  ; j 

jnz 

dOldd 

push 

d>. 

nov 

dl,'  ' 

sov 

ah,2. 

* 

int 

2lh 

pop 

dx 

push 

dx 

mov 

dl,'.' 

BOV 

ah,  2 

int 

21h 

BOV 

dl,'.' 

BOV 

ah,  2 

int 

2ih 

pop 

dx 

inc 

word  ptr  [bp-och]  ;j 

enp 

word  ptr  (bp-Ochl ,10h 

jb 

doled 

push 

dx 

BOV 

dl,'  ' 

BOV 

ah,  2 

int 

2lh 

BOV 

dl,'  ' 

BOV 

ah,  2 

int 

21h 

pop 

dx 

BOV 

ax, [bp-6] 

;ren 

sub 

. [bp-8] , ax 

;i 

BOV 

word  ptr  [bp-Och], 0 

;do  ascii 

BOV 

ax, [bp-6] 

;ren 

emp 

[bp-Och] , ax 

;j 

jnb 

d026c 

BOV 

bx,[bp-8] 

;i 

BOV 

si, (bp+4 ] 

;buf 

push 

dx 

BOV 

dl, [bx+si] 

;bu£[i] 

emp 

dl,'  ' 

jb 

d024d 

emp 

dl,7fh 

jb 

d0250 

BOV 

dl,'.' 

;002e 

;0010 
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call  Ir.il/i2pieri 

-  *#****4-fr4#4**4*4*,t4*4* 


'  Sprint. 

Sprx 

Sprint 

nov 

or 

jz 

nov 

j=? 


ia_ok: 


re£S5V,2X 

IAbsc 

4,rets«/ 

crlf 

ax,retsav 
ax, ax 
ia_o>: 
erred, 2 
uninit 


call  coi’ho 


;call  KboAnl  arid  list  result 


;  SetLo-okAhead  is  not  required  but  added  for  reference 
xcr  cl,dl  ;adapter  0 

bov  ex, 22  ;LcokAhead  size 

;  ***** ***************** 
call  SettookAhead 

;  ********************** 


Sprint 

Sprx 

Sprint 

BOV 

or 

jz 

BOV 

jap 


retsav,ax 

btesg 

4,retsav 

crlf 

ax,retsav 
ax,  ax 
la_ck 
erred, 4 
uninit 


la_ok: 


wf_ok : 


nov 

pkcount,0 

xor 

dl,dl 

; adapter  0 

EOV 

ax,01h 

;set  filter  board  address 

EOV 

ax,Och 

;set  filter  to  proais/bcast 

•  ********************** 

call 

WrRxFilter 

•  ********************** 

nov 

rstsav,a>: 

Sprint 

WFnsg 

Sprx 

4 ,retsav 

Sprint 

crlf 

ttOV 

ax,retsav 

or 

ax,  ax 

jz 

wf_ok 

mov 

erred, 5 

jr,p 

uninit 

;do  xnit  or  rev  per 

user  input 

prop 

near 

push 

bp 

mov 

bp,sp 

tnov 

bx,bp 

sub 

bx,4 

nov 

sp,bx 

push 

si 

push 

dx 

push 

cx 

push 

ds 

mov 

ax,ss 

mov 

ds,ax 

;make  temp  buf  accessabXe 
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-  s-nas  packets  with  even  pacset  :-uabor  ^ppcndin^ 

ssslsk;  rsrtrsis  sststsasc  ^  - 

cassed  onto  the  adapter- 

**  hot--  **  To  allow  this  progran  to  end  cleanly 

added* savvecs  and  f ixvecs  routines  to  preserve  vectors  tha. 

Shisdal?lwsb3L  inter rupt^hook s  to  be  undone  so  3L  can  be  used 
in  an  executable  progran  rather  than  just  a  pernanent  d.iv  -- 


include  ehwieS.h 

define  3b  functions 
extra  InitParaneters : near 

ixtrn  initAdapters:near 
•xtrn  WhoAnX : near 

extra  ResetAdapter : near 

extrn  RdRxFilter:near 
;xtrn  WrRxFi Iter: near 
oxtrn  GetRxData:near 
extrn  SetLookAhead : near 

*y.trn  putTxData:r.ear 

extrn  setTine:r.ear 
extrn  Ticks :word 


extrn 

srand:near 

extrn 

Rand: near 

axtrn 

Sran.dT:  near 

extrn 

RandT:near 

extrn 

Waiting :nea 

V 

;xtrn 

getpknun:near 

axtrn 

isxnitok:near 

extrn 

stopxnit:near 

extrn 

getisrtsr:near 

extrn 

stop_count 

:word 

extrn 

ga_cmd_reg 

:byte 

axtrn 

fxnitting 

:byte 

axtrn 

myeaddr 

:byte 

extrn 

pendflag 

:byte 

axtrn 

_nxmit 

:dword 

axtrn 

_ntxtno 

:dword 

extrn 

_ncol 

:dword 

extrn 

_nnxcol 

:dword 

extrn 

_nrecv 

:dword 

extrn 

_nbadpk 

:dword 

extrn 

_novflo 

:dword 

extrn 

"ntxbad 

:dword 

extrn 

_nrunts 

:dword 

extrn 

_nbrds 

:dword 

extrn 

_ncolide 

:dword 

extrn 

rctoff 

:dword 

;Ha 
;Ma  • 

;Ma 


;Ma 

;Ma 


public  RxProcess 
public  ExitRcvlnt 
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CO  these' !1  he  ii 


5  tor  debugging 

ubhc'  argstr,  crll,  recede,  pkthd,  vbl.sntpk.  !«?««- 
public  xnicl ,  revseme,  dovho,  savvecs,  fixvecs,  t- 

"ublic  doacour.t ,  dnacount  1 


wtoa 


xf 

cr 

insec 

SUKXHIT 

"AITIHE 

AHDRAKC 

KODUNUM 

?TIKE10 


Sprint 


a  pry. 


CODE 


equ 

Oah 

equ 

Odh 

equ 

60d 

equ 

lOOd 

equ 

16d 

;E  equ 

lid 

equ 

lOd 

ecu 

Id 

?  equ 

Od 

macro 

strloc 

local 

strloc 

push 

cx 

lea 

dx, strloc 

aov 

ah,09h 

int 

2lh 

pop 

endn 

cx 

macro 

mov 

ah,  8 

int 

ends 

2ih 

macro 

•nov 

ah,Obh 

int 

endm 

21h 

macro 

len,  dat 

mov 

ax, len 

push 

ax 

mov 

ax, dat 

;push 

ax 

call 

prx 

add 

endm 

sp,4 

macro 

buf ,adr,len 

mov 

ax,  len 

push 

ax 

mov 

ax,adr 

push 

ax 

mov 

ax, buf 

push 

ax 

call 

dmprt 

add 

endm 

sp,6 

GROUP 

DATA,  RCODE 

SEGMENT  WORD  PUBLIC 

.-total  packets  transmitted 
;unit  in  usee. 

; upper  limit  of  random  number 
;nodular  number  with  count 
;base  time  of  random  tine  delay 
; l=stop  wait,  O=stop  no  wait 

;  print  string  at  strloc 


;get  kbd  char  in  al 
;wait  for  key 

; check  for  kbd  char 
; returns  al:  C-nokey,  ff-keyhit 

r print  hex  data  in  word  dat,  len  =  1 
; don't  put  data  in  ax 


;hex  dump  a  data  area 


;Ha 


/Ha 

/Ha 

/Ha 

/Ka 

/Ha 

/Ha 


to  4 


DATA 
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orr.it 


ivor  sr 

11- 

:.i  _hd 

struc 

db 

23 

;hdr  ien 

db 

0 

db 

0 

;init  ccd 

&tat 

dw 

0 

db 

S  dup 

(0) 

db 

0 

;num  units  (not  used) 

dend 

dd 

0 

;code  end  set  here 

argo 

dw 

0 

;arg  offset 

rgs 

dw 

0 

;arg  segment 

db 

0 

mi_hd 

ends 

-  adapter  parameter  setup  string  - 

.  this  would', ccne  from  'device='  on  real  driver  init 
argstr  db  “bs.sys  /A:300  /D:l  /I : 3" , If 

-  fake  driver  init  request  header  for  InitParaneter  input 

ih  ini_hd  <,,,,,, .offset  CODS: argstr, seg  CODS,> 

■ectsv  dd  22h  dup  (o)  ;save  all  vectors  so  we  can  cleanup 

:WhoAnI  adapter  info  structure 
id_info  struc 


ca 

db 

6  dup(O) 

;enet  addr 

verl 

db 

0 

;najor  ver 

•er2 

db 

0 

;ninor  ver 

'er3 

db 

0 

;sub  ver 

ver4 

db 

0 

jtype  ver 

atyp 

db 

0 

.•adapter  type 

istat 

db 

0 

•;  adapter  status 

ofrs 

db 

0 

.-buffer  flags  - 

nxb 

db 

0 

.-number  of  xrait  buffe 

;xb 

dw 

0 

:xrait  buffer  size 

:mtc 

dd 

0 

,-xmit  count 

xnte 

dd 

0 

;xmit  errs 

IfflttO 

dd 

0 

,-xrait  timeouts 

rcvc 

dd 

0 

;rcv  count 

rcvbc 

dd 

0 

; beast  rev  count 

tcve 

dd 

0 

;rcv  errs 

:tc 

dd 

c 

; retry  count 

xfrad 

db 

0 

;xfer  mode  flags 

wtmd 

db 

0 

.-wait  mode  flags 

extp 

dw 

0 

.-extension  pointer 

<mtcol 

dw 

0 

,-xmit  collision 

ad_info 

ends 

•; program  messages 

crlf 

db 

cr,if , 

TVrasg 

db 

"tst31  load 

point:  $" 

IPmsg 

db 

"ImtParameters  returns:  $" 

tAmsg 

db 

"InitAdapters  returns:  $" 

WAmsg 

db 

"WnoAnX  returns:  $" 

WFnsg 

db 

"WrRxFilter 

returns:  $" 

LAmsg 

db 

"SetLookAhead  returns:  $" 

GErasg 

db 

"GetRxData  - 

error  return:  $"  ,  • 

ZPmsg 

db 

If, "Zero  length  packet" ,cr, If, 

PAmsg 

db 

"Press  any  ! 

key  to  continue" ,cr, If, 
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■ 

:h 

: eeo i ve _ 

.my  key  to  'S' 

Snsq 

db 

"Stopping  : ivcivc" ,cr ,  1 1  , 'S' 

Lrasg 

db 

HFnsg 

db 

"Ilnsg 

db 

"Select  function,  r  for  recv,  t  for  xmit: 

Mmsg 

db 

"Sending  1  packet", cr, If , '$' 

.-.Rmsg 

db 

"PutTxData  returns:  $“ 

SRmsg 

db 

"HICISR  value  is:  $" 

-SRrasg 

db 

"IIICTSR  value  is:  S" 

*;Pnsg 

db 

"Total  stop  trannission  number:  " , '$'  ;Ma 

’Onsg 

db 

“Total  collision  number 

:  ;Ka 

STnsg 

db 

"Returned  TSR  decision  value 

:  ,-Ha 

GAmsg 

db 

"GA  command  register  value 

:  ",'S'  ;Ka 

..1-ireq 

db 

"Transmision  of  packets  has 

four  options :",cr, If 

db 

"  0.  Exit",cr,lf 

db 

"  1.  Generate  78  byte  packets  randomly  w/retry  to  replace.", 

db 

"  2.  Generate  142  byte  packets  randomly  w/retry  to  replace." 

db 

"  3.  Generate  270  byte  packets  randomly  w/retry  to  replace." 

db 

cr,lf 

db 

"Enter  your  choice: 

,-Ha 

XMmsgO 

db 

"Sending  78,142  &  270  bytes  packets  randomly."  ;Ma 

db 

cr,lf , '$' 

;M.a 

..Ttosgl 

db 

"Sending  78  bytes  packets  randomly  w/packet  replacing."  ;Ma 

db 

cr ,lf , 

;Ha 

rMiasg2 

db 

"Sending  142  bytes  packets  randomly  w/packet  replacing."  ;Ma 

db 

cr,lf , 'S' 

;Ha 

XHmsg3 

db 

"Sending  270  bytes  packets  randomly  w/packet  replacing."  :Ka 

db 

cr,lf , 'S' 

;Ka 

tioonsg 

db 

"WhoAml  DATA  -",cr,lf , 'S' 

JOlnsg 

db 

"  enet  addr 

$" 

J02msg 

db 

"  major  ver 

$" 

W03nsg 

db 

"  minor  ver 

S" 

W04msg 

db 

11  sub  ver 

$» 

905msg 

db 

"  type  ver 

$" 

W06msg 

db 

"  adapter  type 

$" 

W07msg 

db 

"  adapter  status 

$" 

f08msg 

db 

"  buffer  flags 

$" 

W09msg 

db 

"  number  of  xmit  buffers 

$" 

WlOmsg 

db 

"  xmit  buffer  size 

$" 

fllmsg 

db 

"  xmit  count 

$" 

412msg 

db 

"  xmit  errs 

$" 

W13nisg 

db 

"  xmit  timeouts 

$" 

Wl4msg 

db 

"  rev  count 

$" 

•J15msg 

db 

"  beast  rev  count 

$“ 

wiemsg 

db 

"  rev  errs 

$•' 

Wl7msg 

db 

"  retry  count 

S" 

■J18msg 

db 

"  xfer  mode  flags 

$" 

■J19msg 

db 

"  wait  mode  flags 

$" 

W20msg 

db 

"  extension  pointer 

5" 

'42imsg 

db 

"  xmit  collision  count 

$"  ;Ha 

;  mi  sc 

parameters 

retsav 

dw 

7 

segval 

dv; 

o 
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i  -oil 


•  o!  1 
i :  cd 

utf 

tib 

0 

pklock 

db 

0 

”klcn 

dw 

0 

kerr 

dw 

0 

okcnt 

dw 

0 

pkcount 

dw 

0 

avax 

dw 

-> 

receive  buffer 

•kthd 

db 

32  duo(O) 

pktdat 

db 

1500  dup(0) 

Who Am I 

buffer 

™bf 

ad_info 

<> 

/packet  header  portion  for  SetLookAhead 
/  remainder  of  pkt  buffer 


;WhoAnI  buffer 


****************  ready  packet  data  ************************* 


,-transc: 

it  64 

data  byte  packet 

■iratpk 

label 

byte 

.esta 

db 

02h/60h,8ch,0lh,02h,03h  /arbitrary  dest  addr 

sorca 

db 

00h,00h,00h,0fh,0fh,0fh  /source 

addr  -  fill  from  who  ea 

o  lei; 

db 

0,64  /packet 

length 

idata 

db 

ooh,coh,ooh,  ooh,  04h,  05h,  06h,  07h 

db 

08h , 09h , Oah , Obh , OOh , OOh , OOh ,  OOh 

db 

lOh, llh, 12h, 13h, 14h, 15h, 16h, 17h 

db 

18h,l9h,iah,lbh,lch,ldh,ieh,lfh 

db 

20h, 21h,22h, 23h, 24h,25h, 26h, 27h 

db 

28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

db 

30h,31h,32h,33h,34h,35h,36h,37h 

db 

38h,39h,3ah,3bh,3ch,3dh,3eh, 3fh 

■  • 

xplen 

dw 

$-xmtpk  /packet  len 

****************  ready  packet  data  ************************* 

:mtpk2 

label 

byte 

desta2 

db 

02h,60h,8ch,0lh,02h,03h  /arbitrary  dest  addr 

sorca2 

db 

00h,00h,00h,0fh,0fh,0fh  /source  addr  -  fill  from 

/len2 

db 

0,128  /packet  length 

pdata2 

db 

O0h,00h,00h,00h,O4h,05h,06h,07h 

db 

08h , 09h, oah , obh , OOh , ooh , ooh , ooh 

db 

ioh,iih,l2h,13h,l4h,i5h,i6h,i7h 

db 

I8h,i9h,lah,lbh,lch,ldh,leh,ifh 

db 

20h,21h,22h,23h,24h,25h,26h,27h 

db 

28h, 29h , 2ah, 2bh, 2ch , 2dh , 2eh , 2f h 

db 

3Qh , 31h, 32h, 33h , 34h , 35h, 36h, 37h 

db 

38h , 39h, 3ah , 3bh , 3ch , 3dh, 3eh , 3fh 

db 

00h,oih,02h,03h,04h,05h,06h,07h 

db 

08h , 09h , Oah , obh , Och , odh ,  Oeh , Of h 

db 

10h,iih,12h,l3h,l4h,l5h,l6h,l7h 

db 

I8h,i9h,lah,lbh,lch,idh,leh,lfh 

db 

20h,21h,22h,23h,24h,25h,26h,27h 

db 

28h,29h,2ah,2bh, 2ch , 2dh , 2eh , 2  f h 

db 

30h,31h,32h,33h,34h,35h,36h,37h  .  . 

db 

3  8h , 3  9h , 3ah , 3bh , 3ch , 3dh , 3eh , 3f h 
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>,plpn2  dw 


!'•!! 


•transmit  256  data  byte  packet 
:ntpk3  label  byte 


desta3  db 
sorca3  db 
)len3  db 
Jdata3  db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 


02h,60h,8ch,01h,02h,03h  .-arbitrary  dest  addr 

00h,00h,60h,0fh,0fh,0fh  ;source  addr  -  fill  from  who  ea 

0,255  ,-packet  length 

00h,01h,02h,03h,04h,05h,06h,07h 

08h , 09h , Oah , Obh , OOh , OOh , OOh , OOh 

10h,llh,l2h,l3h,l4h,lSh,l6h,l7h 

18h, 19h , lah , lbh , lch , ldh , leh ,  lfh 

20h, 21h, 22h, 23h, 24h,25h , 26h, 27h 

28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

30h, 31h, 32h, 33h, 34h, 35h, 36h, 37h 

38h,39h,3ah,3bh,3ch,3dh, 3eh,3fh 

OOh , Olh , 02h , 03h , 04h , 05h , 06h , 07h 

08h , 09h , oah , Obh , Och , Odh , Oeh , Of h 

I0h,llh,12h(l3h(14h,15h(16h,17h 

18h , 19h , lah , lbh , lch , ldh , leh , If h 

20h ,  21h,  22h,  23h,  24h,  25h ,  26h,  27h 

28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2f h 

30h,31h,32h,33h,34h,35h,36h,37h 

38h,39h,3ah,3bh,3ch,3dh,3eh(3fh 

00h(01h,02h(03h/04h,05h,06h/07h 

08h , 09h, Oah , Obh , Och , Odh, Oeh , Of h 

I0h,llh,12h,l3h,14h,l5h,16h,17h 

I8h , I9h , lah , ibh, lch , ldh , leh , If h 

20h, 21h, 22h, 23h,24h,25h  /  26h, 27h 

28h,29h,2ah,2bh,5ch,2dh/2eh,2fh 

30h,31h,32h,33h,34h,35h,36h,37h 

38h,  39h,  3ah-,  3bh,3ch,  3dh,  3eh,  3fh 

00h,01h,02h,03h,04h,05h,06h/07h 

08h , 09h , Oah , Obh , Och , Odh , Oeh , Of h 

10h,llh,12h,13h,14h,15h,16h,17h 

18h , 19h , lah , lbh , lch , ldh , leh , if h 

20h,21h,22h.  23h,24h,25h,26h,27h 

28h,29h,2ah,2bh,2ch,2dh,2eh,2fh 

30h,31h,32h(33h,34h,35h,36h,37h 

38h,39h,3ah,3bh,3ch,3dh,3eh,3fh 


kplen3  dw  $-xmtpk3  .-packet  len 

; transmit  largest  packet,  new  data  area/Ma 


,-xmtpkl 

label 

,-destal 

db 

,-sorcal 

db 

;plenl 

dw 

,-pdatal 

dw 

1 

dw 

byte 

02h, 60h, 8ch, Olh, 02h, 03h  arbitrary  dest  addr 
00h,00h,00h,0fh,0fh,0fh  ;source  addr  -  fill  from  who  ea 
0,1500  ,-packet  length 

187  dup  (000lh,0203h,0405h,0607h,0809h,0a0bh,0c0dh,0e0fh) 
Offllh.Of fl3h 


;xplenl  dw  $-xmtpkl 


,-packet  len 


dmacount  dw  0 
dmacountl  dw  0 
hour  db  0 
min  db  0 
sec  db  0 


,-Ha 

,-Ha 

;Ha 

,-Ha 

;Ha 
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.*ous\t 

dy 

* 

•  M(>i 

ount  1 

da 

0 

;Ma 

uncnura 

db 

0 

:Ma 

sumrd 

dw 

0 

;Ma 

°unrdt 

dw 

0 

;Ma 

knum 

db 

0 

;Ma 

DATA 

ENDS 

TACK 

SEGMENT 

STACK 

STACK 

ENDS 

RCODE 

SEGMENT 

WORD  PUBLIC 

assume 

cs:code,  ds:code 

actua  1  packet  number 


time. 


main  routine 


,strx6  proc 

ROV 

mov 

ROV 

mov 

ROV' 

mov 

wov 


near 

ax , CODE 

ds,ax 

es,ax 

ax,cs 

segval,ax  ~ 
toff, Offset  C0DE:tst31 
toff, off set  C0DE:tstrx6 


;Ma 

;Ma 


Sprint  TVnsg 
Sprx  4 ,segval 
Sprint  CLfflsg 
Sprx  4, toff 
Sprir,"  crlf 
Sprint  PAmsg 
Skbdin 

call  sawecs 

mov  bx, off set  CODE:ih 
••  ********************** 
call  XnitParameters 
•  ********************** 
mov  retsav,ax 

Sprint 
Sprx 
Sprint 
mov 
or 
jz 

mo'r 
jrop 


; print  prog  load  addr 


;wait  for  key 
;  ...  get  it 


;save  a  bunch  of  vectors  for  later 

;fake  driver  init  request  buffer 


IPmsg 
4 , retsav 
crlf 

ax, retsav 
ax,  ax 
init_ok 
al,  1 
oout 


init_ok: 


mo.v  di,  off  set  CODE:RxProcess 

•  ********************** 
call  InitAdapters 
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*  +  +  *-*********+-******** 


nov 

retsav.ax 

Sprint 

IAnsg 

Sprx 

4 , retsav 

Sprint 

crlf 

nov 

ax, retsav 

or 

ax,  ax 

jz 

ia_ok 

nov 

erred, 2 

jnp 

uninit 

call 

dowho 

,-call  WhoAmI  and  list  result 


;  SetLookAhead  is  not  required  but  added  for  reference 
xor  dl,-dl  ,-adapter  0 

nov  cx,32  ,-LookAhead.  size 

•  ********************** 
call  SetLookAhead 

•  *********************** 
nov  retsav.ax 

Sprint  LAmsg 

Sprx  4 , retsav 

Sprint  crlf 

nov  ax , retsav 

or  ax, ax 

jz  la_ok 

r.ov  erred ,  4 

jmp  uninit 

ia_ok: 

mov  pkcount.O 

xor  dl.dl 

; ; ;  mov  ax , Olh 

nov  ax.Och 

•  *********  *******  ****** 

call  WrRxFilter 

•  ********************** 


mov 

retsav.ax 

Sprint 

WFmsg 

Sprx 

4 .retsav 

Sprint 

crlf 

mov 

ax, retsav 

or 

ax,  ax 

jz 

wf_ok 

mov 

erred,  5 

jmp 

uninit 

wf _ok : 


;  adapter  0 

;set  filter  board  address 
.-set  filter  to  prorais/bcast 


;do  xnit  or  rev  per  user  input 

fnprmt: 

Sprint  FNmsg  . 

Skbdin  ;get  input  selection 

push  ax 


A-80 


;Ma 


>':;r  i  at 

pop 

emp 

je 

emp 

je 

jrcp 

idorecv:  jmp 


<■;  >! 
i»: 

al ,‘t’ 

jdorecv 

al, 't' 

doxmt 

fnprmt 

dorecv 


;Ma 
;Ha 
;  Ha 


-oxmt: 


stop_count,0 


;Ma,  c'uar  S  stops 


mov 

word  ptr 

_nxmit,0 

;  clear 

mov 

word  ptr 

.nxmit+2  ,.0 

;  _nxmit 

mov 

word  ptr 

_nrecv,0 

;  clear 

mov 

word  ptr 

.nrecv+2,0 

;  _nrecv 

mov 

word  ptr 

_ncolide,0 

;  clear 

mov 

word  ptr 

_ncolide+2 

0  ;  _ncolide 

Sprint 

XMreq 

;Ma 

Skbdin 

;Ma, 

get  input  selection 

push 

ax 

;Ma 

Sprint 

crlf 

;Ma 

pop 

ax 

;Ma 

emp 

al, 

;Ma 

je 

jdoxml 

;Ma, 

transmit  78  byte  packets 

emp 

al, '2' 

;Ma 

je 

jdoxmZ  ” 

;Ma, 

transmit  142  byte  packets 

emp 

al,  '3' 

;Ma 

je 

jdoxm3 

,-Ma, 

transmit  270  byte  packets 

emp 

al, 'O' 

;Ma 

je 

juninit 

;Ma, 

end  of  transmision 

jmp 

doxmt 

;Ha 

mov 

erred, al 

;Ha 

jmp 

uninit 

;Ma 

juninit 

jmp 

uninit 

;Ha 

jdoxml : 

jmp 

doxml 

jdoxm2: 

jmp 

doxm2 

jdoxm3 : 

jmp 

doxm3 

transmit  64  data  byte  packets  w/even  number  packet  appending. 


ioxml : 

Sprint 

XMmsgl 

;Ma 

mov 

funcnum,ld 

;Ma 

mov 

count, Id 

;Ma,  start 

count 

* 

mov 

countl.id 

;Ha,  start 

countl 

mov 

CX.NUMXMIT 

repXl: 

push 

cx 

;Ha 

mov 

ax, count 

;Ma 

mov 

byte  ptr  pdata[l3),*h 

;Ha 

mov 

byte  ptr  pdata(l4],al 

;Ha 

mov 

ax,countl 

;Ha 

mov 

byte  ptr  pdata(15),ah 

;Ha 
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1«:  Id 

jrtz  n  spend 

eov  pendf lag.  Id 

jnp  short  callXnitl 

lopend: 

nov  pendflag/2d 

tallXsi&l: 

call  XSitl 

xor  ax, ay. 

BOV  si, WORD  PTR  Btoff 

eov  dx,IE3ASE[si) 

add  dx,HIC3CR 

in  al,dx 

add  word  ptr  ^_ncolide,e.x 

adc  word  ptr  _ncolide+2,0 


;K»,  i«--t  '.*i i  isUri-.-r 
:Hi 

;Ha ,  =ark  oven  nu=ber  p3Cket/appcnding 
;Ha 

;Ka,  Bark  no  appending 


;Ha,  transait  one  "canned"  packet 

;Ha,  reset  ax 

;Ha,  load  ieparans  addr. 

;Ka 

;Ka,  get  lilCHCR  address 
;Ha,  read  collision  nuaber 
;Ka 
;Ka 


incountll : 

inc 

countl 

;Ha, 

inc 

count 

;Ma, 

jnp 

short  passl 

jrepXl: 

jnp 

short  repXi 

incountl : 

;  inc 

count 

;Ha, 

;  mov 

pendflag,2d 

;Ma, 

passl: 

- 

pon 

cx 

dec 

cx 

jnz 

jrepXl 

call 

dowho 

;Ma, 

Sprint 

XRmsg 

Sprx 

4,retsav 

Sprint 

crlf 

Sprint 

RPrasg  ; 

Sprx 

4, stop  count 

Sprint 

crlf 

Sprint 

COmsg 

mov 

bx.word  ptr  _ncolide+2 

Sprx 

4,bx 

Sprint 

crlf 

Sprint 

GAmsg 

mov 

bl , ga_cmd_reg 

Sprx 

4,bx 

Sprint 

crlf 

Sprint 

PAmsg 

mov 

ah  ,8 

int 

21h  ;wait 

for  key 

jmp 

doxmt  ;Ma 

increanent  of  actual  pkt  l 
increanent  of  total  pkt  g 


increanent  of  total  pkt  g 
next  data  -  no  appending 


list  WhoAnI  result 


;  transmit  128  data  byte  packets  w/pat^et  replace.  ****  not  used 


Sprint 

>:Kcsg2  ;Ka 

sov 

funcnua,2d 

;Ka 

l=OV 

counted  ;Ka,  start  count 

sov 

countl, Id  :Ka,  start  countl 

nov 

CX,!IUHXMI? 

push 

cx  ;Ka 

EOV 

ax, count 

;Ha 

nov 

byte  ptr  pdata2(13],ah 

;Ha 

nov 

byte  ptr  pdata2[14 J,al 

;Ma 

BOV 

ax. countl 

;Ha 

BOV 

byte  ptr  pdata2[15] ,ah 

;Ma 

BOV 

byte  ptr  pdata2[16],al 

;Ha 

call 

Xmitl  ;Ha,  transmit  one  "canned"  packet 

xor 

ax,  ax 

• 

Ma,  reset  ax 

nov 

si, WORD  PTR  ntoff 

• 

load  ieparans  addr. 

BOV 

dX,IEBASE[si) 

§ 

Ma 

add 

dX,NICNCR 

$ 

Ma,  get  HICNCR  address 

in 

al,dx 

B 

Ma,  read  collision  number 

add 

word  ptr  _ncolide,ax 

• 

t 

Ma 

adc 

word  ptr  _ncolide+2,0 

i 

Ma 

call 

isxaitok 

;Ma, 

check  transmit  status 

cap 

ax.  Id 

;Ma, 

returned  transmit  status  value 

jz 

incount21 

;Ma, 

trasmission  complete 

nov 

ax,STOPWAIT 

;Ma, 

set  up  wait/no  wait  flag 

call 

stopxmit 

;Ma, 

stop  NIC  to  transmit 

jnp 

short  incount2 

;Ma 

.ncount21: 

add  word  ptr  _nxnit,l 

adc  word  ptr  _nxnit+2,0 

inc  count! 

inc  count 

jnp  short  pass 2 

,ncount2: 

inc  count 

>ass2 : 

pop 
dec 
jnz 
call 
Sprint 
Sprx 
Sprint 
Sprint 
mov 
Sprx 
Sprint 
jwp 

jrepX2:  jmp 


;Ma,  bump  counter 
;Ma 

;Ma,  increament  of  actual  pkt  S 
;Ma,  increment  of  total  pkt  # 


;Ma,  increament  of  total  pkt  # 


list  WhoAmI  result 


cx 
cx 

jrepX2 

dowho  ;Ma 

RPrasg  ; 

4,stop_count 
crlf 
COmsg 

bx,word  ptr  _ncolide+2 

4  ,bx 

crlf 

doxmt  ;Ha 


repX2 
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- 

;  trans 

nit  256 

data  byte  packet  w/paefcet  replacing.  ****  not  used 

!oxn3 : 

Sprint 

XH=sg3 

;Ha 

KOV 

funenun, 3d 

;Ha 

ssov 

count, Id 

;Ha,  start  count  I 

mOV 

count 1, Id 

;Ma,  start  countl  ! 

J=OV 

cx.UUHXKIT 

1 

”epX3 : 

} 

push 

cx 

;Ka  • 

ROV 

ax, count 

;Ma  1 

nov 

byte  ptr  pdata3[ 

13], ah  ;Ka 

raov 

byte  ptr  pdata3( 

14 ] ,al  ;Ha 

nov 

ax,countl 

;Ma  ’ 

nov 

byte  ptr  pdata3[ 

15], ah  ,-Ha 

1 

nov 

byte  ptr  pdata3( 

16] ,al  ;Ha  1 

) 

call 

Xnitl 

;Ma,  transnit  one  "canned"  packet  j 

xor 

ax,  ax 

;  Ha,  reset  ax 

nov 

si, WORD  PTR  ntoff  ;  load  ieparans  addr. 

nov 

dx,IEBASE[si] 

;  Ma 

add 

dx,NICNCR 

;  Ma,  get  NICNCR  address 

in 

al,dx 

;  Ma,  read  collision  number 

! 

add 

word  ptr  _ncolide,ax  ;  Ma  . 

adc 

word  ptr  _ncolide+2,0  ;  Ha  j 

call 

isxaitok 

I 

;Ma,  check  transmit  status 

crap 

ax.  Id 

; Ha,  returned  transmit  status  value  -  true  1 

jz 

incount31 

;Ma,  trasnission  complete 

raov 

ax , STOPWAIT 

;Ma,  set  up  wait/no  wait  flag 

call 

stopxmit 

;Ma,  stop  NIC  to  transmit 

jnp 

short  incount3 

;Ma 

!  incount31: 

add 

word  ptr  _nxnit, 

1  ;Ma,  bump  counter 

adc 

word  ptr  nxrait+2,0  ?Ma 

inc 

countl 

;Ma,  increament  of  actual  pkt  # 

inc 

count 

;Ma,  increament  of  total  pkt  # 

jmp 

short  pass3 

incount3: 

inc 

count 

;Ma,  increament  of  total  pkt  i 

oass3: 

pop 

cx 

dec 

cx 

jn2 

jrepX3 

call 

dowho 

;Ma,  list  WhoAmI  result 

Sprint 

RPmsg 

t 

Sprx 

4 ,stop_count 

Sprint 

crlf 

Sprint 

COmsg 

•  '» 

raov 

bx,word  ptr  ncolide+2  j  ! 

Sprx 

4  ,bx 

. 
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jrepX3:  jcp  repX3 

******************************************** 

.  receive  packets 

; ******************************************** 
iorecv: 

call  rcvsone  ;recieve  packets  for  till  key  hit 

sov  errcd,al 

uninit: 

;  ********************** 
call  ResetAdapter 

*  *#'*****it***3t*^’**3lr****<r 


call 

fixvecs 

raov 

al, erred 

oout:  nov 

ah,4ch 

int 

21h 

tstrx6  endp 

xraitl  proc 

near 

transnit  one  "canned"  packet 

; setup  for  PutTxData 

crap 

funcnum,3d 

;Ma 

je 

set3 

;Ha 

crap 

funcnum,2d 

;Ma 

je 

set2 

;Ma 

;etl: 

;put 

our  eaddr  in  xmit  pkt 

raov 

ax, word  ptr  wbf. 

ea 

raov 

word  ntr  sorca.ax 

raov 

ax, word  ptr  wbf. 

ea+2 

raov 

word  ptr  sorca+2 

,ax 

raov 

ax, word  ptr  wbf. 

ea+4 

raov 

word  ptr  sorca+4 

,ax 

raov 

ax,STOPWAIT 

or 

al.pendflag 

test 

al ,  Id 

;test  appending  flag  and  wait  status 

jnz 

pending 

.•appending  if  pnndflag=0  ; 

raov 

dx,50h 

;req  id  and  with  first  xfer  call/issue  xmit 

jmp 

short  nopending 

• 

/ 

sending: 

raov 

dx,20h 

;req  id  and  wait,  with  data  pass/appending 

;data,  issue  xmit 

■lopending: 

raov 

si, offset  CODE:xmtpk  ;xmt  pkt  buffer 

raov 

bx,xpien 

;set  lengths  . 

raov 

cx.bx 

jmp 

short  setnoTx 

;Ma 
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f 

s 

! 


••put 

aov 

BOV 

nov 

BOV 

aov 

coy 


our  -radar  in  xait  ukt 

ax, word  ptr  wbf'ea 
•word  ptr  scrca2,ax 
ax, word  .ptr  wbf.ea+2 
word  ptr  sorca2+2,ax 
ax, word  ptr  wbf.ea+4 
word  ptr  sorca2+4,ax 


set3: 


~ov 

coy 

aov 

aov 

jap 


dx,70h 

si, offset  cod: 

bx,xplen2 

cx,bx 

short  setnoTx 


--counts  ^  n°  Wait  “th  data 
xntpk2  ;xnt  pkt  buffer 
Jset  lengths 

;Ka 


pass 


;put 

BOV 

BOV 

BOV 

BOV 

nov 

aov 


our  eaddr  in  xait  okt 
ax, word  ptr  wbflea 
word  ptr  sorca3,ax 
ax, word  ptr  wbf.ea+2 
word  ptr  sorca3+2,ax 
ax, word  ptr  wbf.ea+4 
word  ptr  sorca3+4,ax 


mov 

mov 

aov 

nov 


dx,70h 

si, offset  code: 

bx,xplen3 

cx,bx 


.•Ha,  reg  id  no  wait  with  data 
; count 

xntpk3  ;xmt  pkt  buffer 
/set  lengths 


Pass, 


setnoTx:  aov  di,Offffh 


;no  TxProcess 


;  ********************** 
call  PutTxData 

;  ********************** 
a°v  retsav,ax 


Sprint  XSnsg 
Sprx  4,retsav 
Sprint  crlf 
nov  ax,retsav 

ret 


xraitl  endp 


rcvsome  proc  near 

;  following  code  to  dump 
Sprint  RSmsg 

ohkpk : 

Skbdchk 
or  al.al 

jz  rdbfr 

rdbfr:  ^  Weaone 


received  packets  for  a  fixed  tine 


.'key  pressed? 


test 

jnz 


pklock,Offh 

lstpkt 


.•got  a  pkt? 


.  no  xnit 


no  xnit 
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•  LpSL:  5 

test  pkerr ,  OM 1 1  !i  _  ;.iny  error 
•-  jz  dspk 

Sprint  GEcsg 
9prx  4,pkerr 

~  Sprint  crlf  / 

nov  pklock,0 
inc  pkent 
j'rap  chkpk 

dnpk: 

enp  pklen.O 
jnz  pkok 
Sprint-  ZPnsg 
"  nov  "  pklock.O 

inc  pkent 
.jnp  chkpk 

pkok: 

enp  pklen,256 
jle'  dnokl 

nov  pklen,256  ;linit  dunp  to  1st  256  bytes 

dnokl : 

Sdhprt  <offset  CODE:pkthd>,0,pklen 
nov  pklock, 0 
inc  pkent 
jnp  chkpk 

wedone:  , 

Sprint  REmsg 

nov  ax,o  ■  ;a  return  code 

ret 

evsorae  endp 


RxProcess 

RxProcess  proc  near 

push  bx 

push  ex 

test  cs:pklock,Offh 

jz  getp 

'.ontget: 

inc  pkcount 

nov  cx,0  ;zero  length  (just  discard) 

jnp  goget 

!etp: 

;  At  this  point  we  could  check  es:di  packet  header  data 
;  to  make  some  decision  on  packet  disposition 

;  lock  our  buffer  and  get  packet  data  into  it 
nov  cs:pklock,Offh  ;lock  buff 

nov  cs:pkerr,0 

loget: 

nov  ax, code  .  , 

nov  es ,  ax 

nov  di, offset  CODE:pkthd  .-buffer 
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!<■  !:.<■ 


cr  -J  i ,  l .  -J» 

■  **HUU*M*'**.*tM*«* 

cal  1  GctKxData 

;  A***-****************** 


jcxz 

nolen 

r.ov 

cs:pkerr,ax 

mov 

cs:pklen,cx 

pop 

cx 

pop 

bx 

ret 

txProcess  endp 


ExitRcvInt 

ExitRcvInt  proc  near 

iret 

ExitRcvInt  endp 

;  -  get  and  print  WhoAnI  statistics  - 

lowho  oroc  near 


push  es 

xor  dl,dl  ,-adapter  0 

•  ********************** N 

call  WhoAmI 

•  ********************** 
nov  retsav.ax 


Sprint 

WAnsg 

Sprx 

4 ,retsav 

Sprint 

crlf 

nov 

ax,retsav 

or 

ax,  ax 

jz 

wa_ok 

nov 

erred  ,3 

jnp 

uninit 

nov 

si,di 

nov 

di, offset  CODE:wbf 

■push 

ds 

push 

ds 

push 

es 

pop 

ds 

pop 

es 

nov 

cld 

cx,24 

rep  novsw  ,-copy  who  buffer 


pop  ds 

pop  es 
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WSlO-i.lL 


; print  Llie  KhoAsI  -Lit 


Sprint  W09msg 

Sprx  2,<word  ptr  wb£.nxb-l> 
Sprint  crlf 


r 


i 


t'print 

‘ 1 : .  ; 

* 

Sprx 

i ,  ■  wo:  d  ptr  wbf.iixb* 

j 

t'print 

crit 

Sprint 

Wllnsg 

eprx 

4,<word  ptr  wbf.xmtc+2> 

Sprx 

4 ,  <word  ptr  wbf .  xrato 

Sprint 

crlf 

- 

' 

Sprint 

W12asg 

Sprx 

4 ,  <word  ptr  wbf .  xmte+2> 

Sprx 

4,<word  ptr  wbf.xnte> 

Sprint 

crlf 

Sprint 

W13nsg 

Sprx 

4,<word,-ptr  wbf.xmtto+2> 

Sprx 

4,<word  ptr  wbf.xntto> 

Sprint 

crlf 

Sprint 

W14rasg 

Sprx 

4,<wcrd  ptr  wbf.rcvc+2> 

Sprx 

4,<word  ptr  wbf.rcvo 

Sprint 

crlf 

> 

Sprint 

WlSmsg 

i 

Sprx 

4,<word  ptr  wbf.rcvbc+2> 

Sprx 

4,<word  ptr  wbf.rcvbo 

Sprint 

crlf 

[ 

Sprint 

W16ir.sg 

\ 

Sprx 

4 , <v:ord  ptr  wbf.rcve+2> 

Sprx 

4,<word  ptr  wbf.rcvo 

jf 

Sprint 

crlf 

* 

5 

Sprint 

Wl7msg 

* 

Sprx 

•4,<word  ptr  wbf.rtc+2> 

> 

Sprx 

4,<word  ptr  wbf.rto 

Sprint 

crlf 

f 

Sprint 

WlSrosg 

i 

» 

Sprx 

2,<word  ptr  wbf.xfmd-l> 

i 

Sprint 

crlf 

1 

Sprint 

W19msg 

i 

Sprx 

2,<word  ptr  wbf.wtmd-l> 

I 

Sprint 

crlf 

i 

Sprint 

W20msg 

Sprx 

4,<word  ptr  v;bf.extp> 

Sprint 

crlf 

i 

Sprint 

W2lmsg 

/Ma 

1 

Sprx 

4,<word  ptr  wbf.xmtcol> 

/Ma 

| 

Sprint 

crlf 

/Ma 

j 

ret 

fhodat  endp 


|  *.avvecs  proc 

near 
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; 

' 

ijL 

pash 

iS  1 

push 

di 

push 

cx 

nov 

ax,ds 

P.CV 

es,ax 

xor 

ax, ax 

nov 

ds,ax 

nov 

cx,22h*2 

.•vectors  0  -  21h, 

nov 

di,of fset 

CODE: vectsv 

xor 

old 

cli 

si,si 

ROVSW 

sti 

;save  'era  all 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

pop 

ret 

ds 

savvecs  endp 


fixvecs  proc 

near 

push 

es 

push 

si 

push 

di 

push 

cx 

xor 

ax,  ax 

ttOV 

es,ax 

IRQV 

cx,22h*2  , 'vectors  0  -  21h,  2  wds  per 

mov 

si, offset  CODE: vectsv 

xor 

di,di 

cld 

cli 

rep  movsw 

.•restore  'em  all 

sti 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

ret 

:ixvecs  endp 

dnprt  -  produces  dump  listing,  calling  parameters  are  pushed  on  sta 

(converted  from  a  C  routine) 

INPUTS: 

(bp+4) 

=  data  address 

(bp+6) 

=  starting  address  for  line  headers 

(bp+8) 

=  length  of  data  to  print 

OUTPUT: 

Dump  listing  to  stdout  device 
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ik'  i  r 


push  bp 

roov  bp,sp 

mov  bx , bp 

sub  bx.Och  .-local  vars 

mov-  sp.bx 

gush  si 

mov  ax,[bp+8]  ;len 

d005c:  sub  dx,dx 

mov  cx.lOh 

J0061:  div  cx 

mov  [bp-4], ax  ; lines 

10063:  mov  [bp-6],dx  ;rem 

i0066,:  mov  word  ptr  [bp-8],0  ;i 


d006b:  mov  word  ptr  (bp-0ah],0  ;line 


d0070:  jmp  d0158 


d0073: 


push 

dx 

mov 

dl,cr 

;000d 

mov 

ah,  2 

int 

21h 

mov 

dl,l£ 

;000A 

mov 

ah,  2 

int 

2ih 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

pop 

dx 

mov 

ax,  4 

push 

ax 

mov 

ax, [bp+6] 

;adr 

add 

ax, [bp-8] 

;i 

push 

ax 

call 

prx 

add 

sp,4 

;0004 

push 

dx 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

pop 

dx 

mov 

word  ptr 

[bp-och]  ,0 
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ai)0c5: 

test 

byte  per 

1 bp-Och ) , 3 

;  j 

J 

jnz 

dOOdS 

push 

dx 

, 

rdov 

dl('  -' 

; 

mov 

ah,  2 

f 

int 

2lh 

Pop 

dx 

» 

i 

dOOdS: 

mov 

ax,  2 

;0002 

j 

Push 

ax 

| 

mov 

bx, [bp-8 J 

;i 

a 

mov 

si,(bp+4) 

;buf 

) 

mov 

ah,[bx+sij  ;buf[xj 

l 

push 

ax 

call 

prx 

add 

sp,4 

;0004 

inc 

word  ptr 

[bp-8]  ;i 

inc 

word  ptr 

(bp-Och)  ;j 

dOOfO: 

cmp 

word  ptr 

(bp-Och) ,lOh 

;  j 

jb 

d00c5 

push 

dx 

mov 

dl,'  ' 

mov 

ah, 2 

- 

int 

2lh 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

pop 

dx 

sub 

word  ptr 

(bp-8 ] , lOh 

;i,0010 

* 

mov 

word  ptr 

(bp-Och) ,o 

;  j 

;do  ascii 


d01X3: 

mov 

bx, (bp-8 ) 

;i 

mov 

si, (bp+4 ] 

;buf 

push 

dx 

mov 

dl, (bx+si) 

;buf[i) 

cmp 

dl,'  ' 

jb 

d0l3f 

cmp 

dl,7£h 

jb 

d014  2 

d013f : 

mov 

dl,'.' 

;002e 

10142: 

mov 

ah,  2 

int 

2lh 

pop 

dx 

inc 

word  ptr  (bp- 81 

;i 

inc 

word  ptr  (bp-Och) 

cmp 

word  ptr  ( bp-Och ],10h  ;0010 

jb 

d0113 

inc 

word  ptr  (bp-Oah)  rime 
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'MJW 


d0163 : 


d016c: 


>.  d0l98: 


d01a8: 


i-. 


r  >v  -ix/jbjj-i  ! 

is?  i 

jnb  -i'K-.J 

jap  d007 J 


cap  word  ptr  (bp-6),0 

jnz  d016c 

jap  d0272 


push 

dx 

nov 

dl,cr 

;000d 

nov 

ah,  2 

int 

2ih 

nov 

dl,lf 

;000a 

1710  V 

ah,  2 

int 

21h 

• 

nOV 

dl,'  ' 

nov 

ah, 2 

int 

21h 

nov 

dl,'  ' 

nov 

ah,  2 

int 

21h 

pop 

dx 

nov 

ax, 4 

;0008 

push 

ax 

nov 

ax, [ bp+6 ] 

;adr 

add 

ax, [bp-8] 

';i 

push 

ax 

call 

prx 

add 

sp,4 

;0004 

push 

dx 

nov 

dl,'  ' 

nov 

ah,  2 

int 

2lh 

nov 

dl,'  ' 

nov 

ah,  2 

int 

21h 

pop 

dx 

nov 

word  ptr  (bp- 

OCh]  ,0 

jnp 

short  d01c3 

test 

byte  ptr  (bp-0ch],3 

jnz 

d01a8 

push 

dx 

nov 

dl,'  ' 

nov 

ah,  2 

int 

21h 

pop 

dx 

nov 

ax,  2 

;0002 

push 

ax 

nov 

bx, (bp-8) 

nov 

si, (bp+4 ) 

;bu£ 
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rcn 


;j 


r  j 


do lc3: 


doled: 


dOldd: 


d01f4: 


d0219: 


r- 

;  ;s 

\ 

Cili 

prx 

add 

sp,4  ;0004 

inc 

ford  ptr  ( bp-8  J  ;i 

inc 

word  pt-  (bj>-0chj 

cov 

ax, [bp-6]  ;ren 

cep 

[bp-Och], ax  ;j 

d0193 

jnp 

short  d01f4 

test 

byte  ptr  [bp-Och] ,3 

jnz 

dOldd 

nush 

dx 

cov 

dl,'  ' 

sov 

ah,  2 

int 

21h 

pop 

dx 

push 

dx 

COV 

dl,5.' 

cov 

ah,  2 

int 

21h 

cov 

dl,'.' 

cov 

ah,  2 

int 

21h 

pop 

d>: 

inc 

word  ptr  [bp-Och] 

cep 

word  ptr  [ bp-Och], lOh 

jt> 

doled 

push 

dx 

COV 

dl,'  ' 

cov 

ah,  2 

int 

21h 

cov 

dl,'  ' 

cov 

ah, 2 

int 

21h 

pop 

dx 

COV 

ax, [bp-6]  ;ren 

sub 

[bp-8], ax  ;i 

COV 

word  ptr  [ bp-Och ],0  ; 

;do  ascii 


COV 

ax, [bp-6] 

;rem 

emp 

(bp-Och] , ax 

-•  j 

jnb 

d026c 

COV 

bx, [bp-8] 

;i 

COV 

si,(bp+4J 

;buf 

push 

dx 

cov 

dl, (bx+si ] 

;buf [i] 

cep 

dl,'  ' 

jb 

d024d 

cep 

dl,7fh 

;0010 
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sw 

ai,'.' 

(10250: 

nov 

ah,  2 

int 

2lh 

pop 

dx 

inc 

word  ptr 

{bp-8]  ;i 

inc 

word  ptr 

[bp-Och]  ; j 

j=? 

short 

d0219 

d025f : 

push 

dx 

aov 

dl,'.' 

EOV 

ah,  2 

int: 

2lh 

pop 

dx 

inc 

word  ptr  [bp-Och]  ;j 

d026c: 

cnp 

word  ptr  { bp-Och j,10h  ;0010 

jb 

d025f 

d0272: 

push 

dx 

nov 

dl,cr  ;000d 

aov 

ah,  2 

int 

2ih 

nov 

dl,lf  ;000a 

nov 

ah,  2 

int 

21h 

pop 

dx 

pop 

si 

nov 

sp.bp 

pop 

bp 

ret 

dmprt 

endp 

prx  -  routine  to  print  a  hex  value  from  binary  data  up  to  word  length 
INPUTS: 

(bp+4)  =  binary  data  to  convert 

(bp+6]  =  number  of  bytes  to  print  (1  to  4) 


proc 

near 

push 

bp 

mov 

bp,sp 

roov 

bx,bp 

sub 

bx,4 

mov 

sp,bx 

push 

si 

push 

dx 

push 

cx 

;local  space 
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£X?Y 

,  ?•:; 

.uv« 

SO  V 

lea 

bx»|bp-4] 

;tesp  butler  addres: 

sov 

dx,(bp*4J 

;data  to  cvrt 

call 

wtca 

nov 

cx,{bp+6] 

;char  count  to  prim 

xor 

si, si 

BOV 

cl, (bp+si-4 ] 

;get  a  byte 

BOV 

ah, 2 

int 

21h 

;print  it 

inc 

si 

loop 

prxl 

pop 

ds 

pop 

cx 

pop 

ax 

pc? 

si 

BOV 

so,  bp 

pop 

ret: 

end? 

bp 

CONVERT  WORD  TO  ASCII  HEX 
Calling  sequence: 


BOV 

BOV 

call 

ds:bx 

dx,word 

bx, offset  out 

wtoa 

needs  4  bytes  for 

;word  to  convert 
; where  to  put  output 

result 

proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

push 

si 

nov 

si, 4 

;digits  per  word 

nov 

al,dl 

;get  a  digit 

nov 

Cl,  4 

shr 

dx,cl 

, 'strip  the  digit 

and 

al,Ofh 

;keep  low  nibble 

add 

daa 

al,090h 

adc 

daa 

al,040h 

dec 

si 

.•count  the  digit 

mov 

[bx+si ) ,al 

; store  the  digit 

jnz 

wtoaOl 

pop 

si 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ret 

ax 

;toa 


vtoaOl: 
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>CODE  EMUS 

E!ID  CStrxb 


;Ka 
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data  onto  the  spjce  ol  the  odd  tninlt-i  *  d  packet  on  the  adapter. 
This  experiment  issues  a  start  ti  mission  command  to  the 


adapter  after  pass  the  data  of  odu 

number  packet,  without  waiting  of  the  transmission  completion. 
Then,  issue  a  transmission  command  after  the  even  number  packet. 

**  NOTE :  **  This  program  coriplished  with  some  modifications  in 
the  3L  library  routine  EHWXMIT . ASM 

**  NOTE:  **  To  allow  this  program  .to  end  cleanly 

added  sawecs  and  fixvecs  routines  to  preserve  vectors  that 

could  possibly  be  changed. 

This  allows  3L  interrupt  hooks  to  be  undone  so  3L  can  be  used 
in  an  executable  program  rather  than  just  a  permanent  driver. 


include  ehwieS .h 

■define  3L  functions 
extrn  InitParaneters inear 

extrn  InitAdapters inear 

txtrn  WhoAml : near 
extrn  P.esetAdapterinear 
extrn  RdRx?ilter:near 
sxtrn  WrRxFilter:near 
-ixtrn  GetRxData:near 
extrn  SetLookAheadtnear 
extrn  PutTxData:near 

extrn  SetTime:near 
extrn  Ticks : word 

extrn  Srand:near 
extrn  Rand: near 
»xtrn  SrandT:near 
jxtrn  RandT:near 
extrn  Waiting : near 
extrn  getpknum:near 
axtrn  isxmitoktnear 
extrn  stopxmit:near 
extrn  getisrtsr:near 


axtrn 

stop_cour.t 

:word 

;Ha 

extrn 

xmit_completel  tbyte 

;Ha 

axtrn 

ga_cmd_reg 

:byte 

;fia 

extrn 

fxmitting 

tbyte 

;Ka 

extrn 

myeaddr 

tbyte 

extrn 

pendflag 

tbyte 

;Ma 

axtrn 

_nxmit 

tdword 

extrn 

_ntxtmo 

t  dword 

extrn 

_ncol 

t  dword 

extrn 

_nmxcol 

tdword 

axtrn 

_nrecv 

t  dword 

extrn 

_nbadpk 

t  dword 

extrn 

_novf lo 

tdword 

axtrn 

_ntxbad 

t  dword 

extrn 

_nrunts 

tdword 

extrn 

_nbrds 

t  dword 

axtrn 

_ncolide 

tdword 

;Ma 
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•ublic 

public 


Kxl’rocess 

ExitRcvInt 


so  these' 11  be  in  nap  for  debugging 


public 

argstr, 

,  crlf ,  retsav 

,  pkthd,  ubf,  xntpk,  fnprnt 

public 

xnitl. 

rcvsome,  dowho,  savvecs,  fixvecs,  dnprt,  prx,  wtoa 

■ublic 

dnacount ( dnacountl 

;Ha 

If 

equ 

Oah 

or 

equ 

Odh 

linsec 

equ 

60d 

NUMXKIT 

equ 

lOOd 

; total  packets  transmitted 

/Ma 

7AITIME 

equ 

16d 

;unit  in  usee. 

/Ma 

:andrange  equ 

lid 

;upper  limit  of  random  number 

/Ha 

I  .ODUKUM 

equ 

lOd 

; nodular  number  with  count 

/Ha 

TIHE10 

equ 

Id 

;base  time  of  random  time  delay  /Ha 

'■TOPWAIT  equ 

Od 

;l=stop  wait,  O=stop  no  wait 

/Ha 

Sprint 

macro 

strloc 

;print  string  at  strloc 

local 

strloc 

push 

cx 

lea 

dx, strloc 

nov 

ah,09h 

int 

21h 

pop 

endm 

cx 

Skbdin 

macro 

mov 

ah,  8 

;get  kbd  char  in  al 

int 

endm 

21h 

;wait  for  key 

• 

Ikbdchk 

macro 

mov 

ah , Obh 

;check  for  kbd  char 

int 

endm 

2lh 

.■returns  al:  O-nokey,  ff-keyhit 

Jprx 

macro 

len,  dat 

/ 

print  hex  data  in  word  dat,  len  =  1 
don't  put  data  in  ax 

to  4 

mov 

ax,  len 

push 

ax 

mov 

ax , dat 

push 

ax 

call 

prx 

add 

endm 

sp,4 

• 

Jdmprt 

macro 

buf ,adr,len 

;hex  dump  a  data  area 

mov 

ax, len 

push 

ax  " 

mov 

ax , adr 

push 

ax 

mov 

ax, buf 

push 

call 

add 

endra 


ax 

dmprt 

sp,6 


CROUP 

DATA , 

RCODE,  STACK 

i)ATA 

SEGMENT 

WORD 

PUBLIC 

DOS  dr 

iver  init  request  header  format 

.ni  hd 

struc 

db 

23 

;hdr  len 

db 

0 

db 

0 

;ir.it  end 

stat 

dw 

0 

db 

8  dup 

(0) 

db- 

0 

;num  units  (not  used) 

ederid 

dd 

0 

;code  end  set  here 

argo 

dw 

0 

;arg  offset 

trgs 

dw 

0 

;arg  segment 

db 

0 

ini_hd 

ends 

- adapter  parameter  setup  string - 7 - 7-7 

;  this  would  cone  from  'device='  on  real  driver  mit 
*  argstr  db  "bs.sys  /A:300  /D:l  /I:3",lf 

t 

|  -  fake  driver  init  request  header  for  InitParameter  input 

{  ih  ini_hd  .offset  CODE: argstr, seg  CODE, > 

,e ctsv  dd  22h  dup  (0)  ;save  all  vectors  so  we  can  cleanup 

•WhoAmI  adapter  info  structure 
id_info  struc 

ea  db  6  dup(O) 

verl  db  0 

fer2  db  0 

rer3  db  0 

ver4  db  0 

ityp  db  0 

istat  db  0 

bfrs  db  0 

nxb  db  0 

;xb  dw  0 

xmtc  dd  0 

xmte  dd  0 

<mtto  dd  0 

:cvc  dd  0 

rcvbc  dd  0 

rcve  dd  0 

:tc  dd  0 

xfmd  db  0 

wtmd  db  0 

jxtp  dw  0 

xmtcol  dw  0 

j  ad_info  ends 

i  : program  messages 
j  crlf  db  cr,lf,'$' 

i  TVmsg  db  "tst31  load  point:  $" 

1  [Pmsg  db  "InitParameters  returns:  $" 

lAmsg  db  “InitAdapters  returns:  $" 

WAmsg  db  "WhoAmI  returns:  $" 

■JFmsg  db  "WrRxFilter  returns:  $" 
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;enet  addr 
; major  ver 
;  minor  -ver 
;sub  ver 
;type  ver 
; adapter  type 
.•adapter  status 
; buffer  flags 
.•number  of  xmit  buffers 
;xmit  buffer  size 
;xmit  count 
;xmit  errs 
;xmit  timeouts 
;rcv  count 
; beast  rev  count 
;rcv  errs 
.•retry  count 
;xfer  mode  flags 
.-wait  mode  flags 
extension  pointer 

;xmit  collision  /Ma 


•r.saq 

d!> 

"GeLKxDal.i  error  return:  $" 

Prsy 

db 

it, "Zero  length  packet", cr, 11 , 'S' 

.Ansg 

db 

"Press  any  key  to  continue" ,cr,lf , 'S' 

RSmsg 

db 

"Starting  packet  receive _ any  key  to  end" 

,cr , If 

Ensg, 

db 

"Stopping  receive" ,cr, If, 

Lasg 

db 

":$“ 

HFnsg 

db 

"  -  $" 

"'Ilmsg 

db 

"Select  function,  r  for  recv,.  t  for  xrait:  " 

Hnsg 

db 

"Sending  1  packet" ,cr, If , 'S' 

ARmsg 

db 

"PutTxData  returns:  S'! 

SRmsg 

db 

"HICISR  value  is:  $" 

jSRnsg 

db 

"HICTSR  value  is:  S" 

:Pmsg 

db 

"Total  stop  tranmission  number: 

;Ha 

Omsg 

db 

“Total  collision  number  : 

;Ma 

STmsg 

db 

"Returned  TSR  decision  value  :  ” ,'$' 

;Ma 

oAmsg 

db 

"GA  command  register  value 

;Ha- 

.nMreq 

db 

"Transmision  of  packets  has  four  options:",cr,lf 

db'  "  0.  Exit", cr, If 

db  “1.  Generate  78  byte  packets  randomly  w/retry  to  replace." ,cr, 

db  "2.  Generate  142  byte  packets  randomly  w/retry  to  replace. ",cr 

db  "3.  Generate  270  byte  packets  randomly  w/retry  to  replace." ,cr 

db  cr,lf 

db  "Enter  your  choice:  _  ;Ma 


,  XMmsgo  db 
db 

..Hmsgl  db 
db 

i  Mmsg2  db 
db 

i  XMmsg3  db 
f  db 


"Sending  78,142  &  270  bytes  packets  randomly."  ;Ma 

cr,lf , ;Ma 
-"Sending  78  bytes  packets  randomly  w/packet  replacing."  ;Ma 

■cr.rf.'S'  ;Ha 

;  "Sending  142  bytes  jackets  randomly  w/packet  replacing."  ;Ma 
. cr,lf,'$'  ’  ;Ma 

"Sending  270  bytes  packets  randomly  w/packet  replacing."  ;Ma 
cr,lf ,  'S'  ;Ma, 


r  WOOmsg  db 


"WhoAmI  DATA  -",cr,lf , 'S' 


1  'Olmsg 

db 

ft 

enet  addr 

$" 

,I02msg 

db 

tl 

major  ver 

$" 

j W03msg 

db 

II 

minor  ver 

$" 

{  I04msg_ 

db 

II 

sub  ver 

$" 

,,  I05msg- 

db 

II 

type  ver 

S" 

W06msg 

db 

II 

adapter  type 

$" 

1  '407msg 

db 

It 

adapter  status 

$" 

1  !08msg 

db 

II 

buffer  flags 

$" 

1  W09msg, 

db 

II 

number  of  xmit  buffers 

$" 

,  wiomsg 

db 

II 

xmit  buffer  si2e 

$" 

'  lllmsg 

db 

II 

xmit  count 

$" 

*  J12msg 

db 

II 

xmit  errs 

$" 

,  Wi3msg 

db 

II 

xmit  timeouts 

$" 

'I14msg 

db- 

II 

rev  count 

$" 

i  U5msg 

db 

II 

beast  rev  count 

S" 

W16msg 

db 

II 

rev  errs 

S" 

;  Wl7msg 

dti 

II 

retry  count 

S" 

I18msg 

db 

II 

xfer  mode  flags 

$" 

J19rasg 

db 

II 

wait  mode  flags 

$" 

W20msg 

db 

II 

extension  pointer 

$" 

J21msg 

db 

II 

xmit  collision  count 

S" 
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0 


*  B 1  SC 

xir.imete! 

'15 

•etsav 

dw 

•> 

segval 

dw 

? 

toff 

dw 

o 

:rrcd 

db 

0 

pklock 

db 

0 

jklen 

dw 

0 

jkerr 

dw 

0 

pkcnt 

dw 

0 

okcount 

dw 

0 

savax 

dw 

o 

: receive  buffer 

)kthd  db  32  dup(O)  .-packet  header  portion  for  SetLookAhead 

jktdat  db  i500  dup(O)  ;  remainder  of  pkt  buffer 

: Who Am I  buffer 

wbf  ad_info  <>  ,-WhoAmI  buffer 

;****•*****■*******  ready  packet  data  ************************* 

; transmit  64  data  byte  packet 


<mtpk 

label 

byte 

Jesta 

db 

02h,60h,8ch,oih,02h,03h  .-arbitrary  dest 

addr 

sorca 

db 

ooh.ooh.ooh.ofh.ofh.ofh  ,- source  addr  - 

fill  from 

who  ea 

olen 

db 

0,64  ,- packet  length 

odata 

db 

ooh,ooh,ooh,ooh,04h/05h,06h/o7h 

db 

■  08h , 09h , oah , Obh , OOh , ooh , OOh , ooh 

db 

••  10h,llh,12h,13h,l4h,l5h,16h,17h 

db  • 

I8h,19h, lah , lbh , lch , Idh , leh , If h 

db 

■  20h ,  21h ,  22h ,  23h ,  24h ,  25h ,  26h ,  27h 

db 

28h ,  29h ,  2ah ,  2bh ,  2ch ,  2dh ,  2eh ,  2f  h 

db 

30h,31h,32h,33h,34h,35h,36h,37h 

db 

38h , 39h, 3ah , 3bh , 3ch , 3dh , 3eh , 3fh 

xplen 

dw 

$-xmtpk  ; packet  len 

;****************  ready  packet  data  ************************* 

.-transmit  128 

data  byte  packet 

mtpk2 

label 

byte 

desta2  • 

db 

02h,60h,8ch,01h,02h,03h  .-arbitrary  dest 

addr 

sorca2 

db 

00h,00h,00h,0fh,0fh,0fh  , -source  addr  -  fill  from 

who  ea 

plen2 

db 

.  0,128  ; packet  length 

pdata2 

db 

00h,00h,00h,00h,04h,05h,06h,07h 

db 

08h , 09h , oah , Obh , COh , ooh , ooh , OOh 

db 

10h,nh,i2h,l3h,l4h,l5h,l6h,l7h 

db 

18h ,  19h ,  lah ,  lbh ,  lch ,  ldh ,  leh ,  If  h 

db 

20h ,  21h ,  22h ,  23h,  24h  ,  25h .  26h ,  27h 

db 

28h , 29h, 2ah , 2bh , 2ch , 2dh , 2eh ,  2f h 

db 

30h, 31h, 32h, 33h, 34h, 35h, 36h, 37h 

db 

38h,  39h, 3ah, 3bh,3ch, 3dh, 3eh, 3fh 

db 

00h,01h,02h,03h,04h,05h,06h,07h 

db 

08h , 09h , Oah , Obh , Och , Odh , Oeh , Of h 

db 

10h,llh,l2h,l3h,l4h,l5h,l6h,i7h 

db 

18h , I9h , lah , lbh , lch , ldh, leh , lfh 

db 

20h, 21h, 22h, 23h, 24h , 25h, 26h , 27h 
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db  .'>•.!! ,  ,  .Ml: ,  .-Hi ,  Ms ,  .’ill ,  .><«•> ,  2 1  h 

<i!>  50h,  ilh,  i.lii,  }  ill,  )  Ih ,  }*>h ,  »<*h,J7h 

db  J3!l,  I'lil,  JJh,  3b!l,  Jell,  Still,  3ch,  3 ( ti 

xplen2  dw  $-xmtpk2  ;packet  len 

****************  ready  D2Ckst  ************************* 

■transmit  256  data  byte  packet 
:ntpk3  label  byte 

desta3  db  02h,60h,8ch,01h,02h,03h  /arbitrary  dest  addr 

sorca3  db  00h,00h,00h,0fh,0fh,0fh  /source  addr  -  fill  from  who  ea 

>len3  db  0,255  /packet  length 

pdata3  db  O0h,0ih(02h,03h/0<!h,05h,06h,07h 

db  08h , 09h , oah , obh , ooh , ooh , ooh , ooh 

db  I0h,llh,12h,13h,14h,15h,16h,l7h 

db  I8h , 19h , lah , lbh , lch , idh , leh , 1 f h 

db  2 oh, 2lh,22h,23h, 24h, 25h, 26h, 27h 

db  28h, 29h , 2ah , 2bh , 2ch, 2dh , 2eh , 2fh 

db  30h,31h,32h,33h,34h;35h,36h,37h 

db  38h,39h,3ah,3bh,3ch,3dh,3eh,3fh 

db  ooh ,  oih ,  02h ,  03h,  04h,  05h-,  06h ,  07h 

db  08h , 09h, Oah , Obh , Och , Odh , Oeh , Of h 

db  10h,llh,12h,l3h,14h,l5h,16h,17h 

db  I8h , 19h , lah , lbh , lch , ldh , leh , If h 

db  20h, 21h, 22h, 23h, 24h, 25h, 26h , 27h 

db  28h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh, 2f h 

db  30h, 3lh, 32h , 33h, 34hr35h, 36h, 37h 

db  38h, 39h, 3ah , 3bh , 3ch , 3dh , 3eh , 3f h 

db  OOh , Olh , 02h , 03h , 04h , OSh , 06h , 07h 

db  08h , 09h , Oah , Obh , Och , Odh , Oeh , Of h 

db  .  I0h,lih,12h,13h,14h,15h,16h,17h 

db  I8h , 19h , lah , lbh , lch , ldh , leh , If h 

db  20h,2lh,22h,23h,24h,25h,26h,27h 

db  28h,29h,2ah,2bh,2ch,2dh,2eh, 2fh 

db  30h,31h,32h,33h,34h,35h,36h,37h 

db  38h , 39h , 3ah , 3bh , 3ch , 3dh , 3eh , 3fh 

db  00h,01h,02h,03h,04h,05h,06h,07h 

db  08h , 09h , Oah , Obh , Och , Odh , Oeh , Ofh 

db  10h,llh,12h,13h,14h,15h,16h,17h 

db  18h,19h,lah,lbh,lch,ldh,leh,lfh 

db  20h , 21h , 22h , 23h , 24h , 25h , 26h , 27h 

db  2  8h , 29h , 2ah , 2bh , 2ch , 2dh , 2eh , 2  f h 

db  30h,3lh,32h,33h,34h,35h,36h,37h 

db  3  8h , 39h , 3ah , 3bh , 3ch , 3dh , 3eh , 3f h 

<plen3  dw  $-xmtpk3  /packet  len 

/transmit  largest  packet,  new  data  area/Ma 

/xmtpkl  label  byte 

zdestal  db  02h,60h,8ch,01h,02h,03h  /arbitrary  dest  addr 

zsorcal  db  00h,00h,00h,0fh,0fh,0fh  /source  addr  -  fill  from  who  ea 

/plenl  dw  0,1500  /packet  length 

zpdatal  dw  187  dup  (000ih,0203h,0405h,0607h,0809h,0a0bh,0c0dh,0e0fh) 

z  dw  0ffllh,0ffl3h 

zxplenl  dw  $-xmtpkl  /packet  len 

Imacount  dw  0  /Ha 
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inoounll  dw 

0 

;IU 

hour 

db 

o 

,-Ma 

mi  n 

db 

0 

;Ma 

SUC 

db 

0 

;Ma 

count 

dw 

0 

;Ma 

ccuntl 

dw 

0 

;Ma,  counts  actual 

packet  number 

funcnum 

db 

0 

;Ma 

sumrd; 

dw 

0 

;Ma,  summation  of  rand  numbers  for  packet  len 

sumrdt 

dw 

0 

;Ma,  "  " 

11  "  "  time. 

pknum 

db 

0 

;Ma,  packet  number 

1=78,  2=142,  3=270  bytes 

DATA 

ENDS 

STACK 

SEGMENT 

STACK 

STACK 

ENDS 

RCODE 

SEGMENT 

WORD  PUBLIC 

assume 

cs:code,  ds:code 

;  main  routine 

tstrx7 

proc 

near 

mov  ax , CODE 

mov  ds ,  ax 

mov  es,ax 


mov  ax,cs 

mov  segval , ax 

mov  toff, offset  CODE:tst31  ;Ma 
mov  toff, offset  C0DE:tstrx7  ,-Ma 

Sprint  TVrasg  ; print  prog  load  addr 

Sprx  4,  segval 

Sprint  CLmsg 

Sprx  4, toff 

Sprint  crlf 

Sprint  PArasg  ;wait  for  key 

Skbdin  ;  ...  get  it 

call  sawecs  ;save  a  bunch  of  vectors  for  later 

mov  bx, offset  CODE:ih  ;fake  driver  init  request  buffer 

•  ********************** 

call  InitParameters 

•  ******W*************** 

mov  retsav, ax 

Sprint  IPmsg 
Sprx  4 , retsav 

Sprint  crlf 
mov  ax, retsav 

or  ax, ax 
jz  init_ok 

mov  al,l 
jmp  oout 


1  :l|>!  r.l  : 


Spt inu 

Skbdin 

push 

Sprint 

pop 

cmp 

je 

crap 

je 

jmp 

idorecv:  jmp 


ax 

crlf 

ax 

al, 'r' 

jdorecv 

al,'t' 

doxmt 

fnprmt 

dorecv 


;got  input  selection 


stop_count,0 


;Ma,  clear  /  stops 


word  ptr  _nxmit,0 
word  ptr  _nxmit+2,0 
word  ptr  _nrecv,0 
word  ptr  _nrecv+2,0 
word  ptr  _ncolide,0 
word  ptr  _ncolide+2,0 


clear 

_nxmit 

clear 

_nrecv 

clear 

_ncolide 


Sprint 

Skbdin 


push 

ax 

;Ma 

Sprint 

crlf 

;Ma 

pop 

ax 

;Ma 

cmp 

al, '1' 

;Ha 

je 

jdoxml 

;Ma 

cmp 

al, '2' 
jdoxm2 

;Ma 

je 

;Ma, 

cmp 

al, '3' 

;Ma 

je 

jdoxm3 

;Ha. 

cmp 

al, 'O' 

;Ma 

je 

juninit 

;Ha 

jmp 

doxmt 

?Ha 

mov 

erred, a 1 

;Ma 

jmp 

uninit 

;Ma 

juninit: 

jmp 

uninit 

;Ha 

jdoxml: 

jmp 

doxml 

jdoxm2 : 

jmp 

doxm2 

jdoxm3: 

jmp 

doxm3 

get  input  selection 

transmit  78  byte  packets 
transmit  142  byte  packets 
transmit-  270  byte  packets 
end  of  transmision 


:  transmit  64  data  byte  packets  w/even  number  packet  replacing, 
doxml : 


repXl: 


@print 

XMmsgl 

;Ma 

mov 

funcnum.ld 

;Ma 

mov 

count, id 

;Ha 

mov 

count 1, id 

;Ha 

mov 

cx , NUMXMIT 

push 

CX 

;Ha 

mov 

ax, count 

;Ma 

mov  by!  <•  pt!  p-i  stJl  I  i  ( ,->!> 

nov  byte  ptr  pdatal  14  ),<») 

raov  ay .count l 

mov  byte  ptr  pdata{15),ah 

mov  byte  ptr  pdata(16),al 

test  count, Id 

jnz  nopend 

mov  pendflag.ld 

jmp  short  callXmitl 

nopend: 

mov  pendflag,2d 

callXmitl: 

call  Xmitl 

xor  ax, ax 

mov  si, WORD  PTR  mtoff 

mov  dx, IEBASE(si ) 

add  dx.NICNCR 

in  al,dx 

add  word  ptr  _ncolide,ax 

adc  word  ptr  _ncolide+2,0 


;K  1 
;  M.i 
;Ba 
;Ha 
;Ma 

;Ha,  test  odd  number 
;Ma 

;Ma,  mark  no  appending/xmit  double 

;Ha,  size 

;Ma 

;Ma,  mark  no  appending 


;Ma,  transmit  one  "canned"  packet 

;Ma,  reset  ax 

;Ma,  load  ieparams  addr. 

;Ma 

;Ma,  get  NICNCR  address 
;Ma,  read  collision  number 
;Ma 
;Ma 


word  ptr  _nxmit,l  ;Ma,  bump  counter 

word  ptr  _nxmit+2,0  ;Ma 

countl  '  ;Ma,  increament  of  actual  pkt  S 

count  ;Ma,  increament  of  total  pkt  # 

pendflag.Od  ;Ma,  next  data  -  appending 

short  passl 

short  repXl 


count  ;Ma,  increament  of  total  pkt  # 

pendflag,2d  ;Ma,  next  data  -  no  appending 

cx 
cx 

jrepXl 

call  dowho  ;Ma,  list  WhoAmI  result 

Sprint  XRmsg 
Sprx  4,retsav 
Sprint  crlf 

mov  al,xmit_completel  ;Ha 

mov  stop_count , ax  ;Ha 

Sprint  RPmsg  ? 

Sprx  4,stop_count 
Sprint  crlf 
Sprint  COmsg 

mov  bx,word  ptr  _ncolide+2 

Sprx  4 ,bx 

Sprint  crlf 

Sprint  GAmsg 

mov  bl ,ga_cmd_reg 


incountll: 

!  •  add 

:  :  adc 

|  inc 

•  inc 

i*  •  mov 

!  jmp 

■  jrepXl: 

:  jrap 

j  incountl: 
i  :  inc 

,  ;  mov 

:  passl: 

!  POP 

dec 

.  jnz 
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(•print  crl! 

(.'print  S'Amsg 
no v  ah ,8 

int  2Xh 

jnp  doxnt 

;wait  for  key 

;Ka 

;  transnit  128  data  byte  packets  w/packet  replace.  *******  not  used 

doxn2 : 

Sprint  XKnsg2 

;Ha 

mov 

funcnun,2d 

;Ha 

mov 

count, Id 

;Ma,  start  count 

mov 

countl , Id 

;Ma,  start  countl 

ItlOV 

CX.HUMXHIT 

repX2 : 

push 

C  X 

;Ha 

mov 

ax, count 

;Ha 

mov 

byte  ptr  pdata2[l3] ,ah  ;Ha 

raov 

byte  ptr  pdata2| 

14], al  ;Ha 

raov 

ax, countl 

;Ha 

mov 

byte  ptr  pdata2[15] ,ah  ;Ka 

raov 

byte  ptr  pdata2[16] ,al  ;Ka 

call 

Xnitl 

;Ma,  transnit  one  "canned"  packet 

rxmitwait: 

mov 

dx,Od 

;Ka 

raov 

ax, count 

;Ha 

raov 

bx.HODUNUH 

;Ma 

div 

bx 

;Ma 

raov 

ax,dx 

;Ha,  pass  seed  nunber  to  SrandT 

mov 

bx , RANDRANGE 

;Ma,  pass  upper  random  limit  to  SrandT 

call 

SrandT 

;Ma,  set  random  seed  and  upper  limit  numbers 

call 

RandT 

;Ma,  get  random  nunber 

add 

sunrdt.ax 

mov 

dx,FTIME10 

;Ma,  load  interfrane  tine- 

mul 

dx 

;Ma,  get  total  delay,  time  in  microseconds 

call 

Waiting 

;Ma,  delay 

xor 

ax,  ax 

;  Ma,  reset  ax 

raov 

si, WORD  PTR  ratoff  ;  load  ieparans  addr. 

mov 

dx , IEBASE( si ] 

;  Ha 

add 

dx.NICNCR 

;  Ha,  get  NICNCR  address 

in 

al,dx 

;  Ha,  read  collision  number 

add 

word  ptr  _ncolide,ax  ;  Ha 

adc 

word  ptr  _ncolide+2,0  ;  Ma 

call 

isxmitok 

;Ma,  check  transmit  status 

cmp 

ax,  Id 

;Ma,  returned  transmit  status  value  -  true 

jz 

incount21 

;Ma,  trasmission  complete 

raov 

ax.STOPWAIT 

;Ma,  set  up  wait/no  wait  flag 

call 

stopxnit 

;Ma,  stop  NIC  to  transmit 

jmp 

short  incount2 

;Ma 
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atic 

vor d  ptr  _nx=it«2,o 

;Ka 

inc 

countl 

;K3# 

incrcaccnt 

oi' 

actual  pkt  l 

inc 

count 

:Ha, 

incrcancnt 

of 

total  pkt  l 

jn? 

short  pass2 

in count2: 

inc 

count 

;Ma, 

increscent 

of 

total  pkt  l 

J3SS2: 

pop  cx 

'  dec  cx 

jnz  jrepX2 

call  cowho  ;Ma,  list  KhoAal  result 

Sprint  RPmsg  ; 

Sprx  4,stop_count 

Sprint  crlf 

Sprint  COssg 

rov  bx,word  ptr  _ncolide-r2 
Sprx  4  ,bx 

Sprint  crlf 

jap  doxmt  ;Ma 

jrepX2:  jnp  repX2 


:  transnit  256  data  byte  packet  w/packet  replacing.  ****  not  used 


doxn3 : 

Sprint  XKmsg3  ;Ka 

ncv  funcnun,3d  ;Ma 

nov  count, Id  ;Ma,  start  count 

nov  countl,ld  ;Ma,  start  countl 

nov  cx , NUMXMIT 

:epX3 : 

push  cx  ;Ka 


nov  ax, count  ;Ma 
nov  byte  ptr  pdata3[13] ,ah  ;Ma 
nov  byte  ptr  pdata3(14] ,al  ;Ma 
nov  ax, countl  ;Ma 
nov  byte  ptr  pdata3[15] ,ah  ;Ma 
nov  byte  ptr  pdata3(16] ,al  ;Ma 


call  Xnitl  ;Ha,  transmit  one  "canned"  packet 

;xnitwait: 

nov  dx,0d  ;Ha 

nov  ax, count  ;Ha 

nov  bx ,  MODUHUM  ;Ma 

div  bx  ;Ma 

nov  ax,dx  ;Ma,  pass  seed  number  to  SrandT 

nov  bx,RAHDRAHGE  ;Ha,  pass  upper  random  limit  to  SrandT 

call  SrandT  ;Ma,  set  random  seed  and  upper  limit  numbers 

call  RandT  ;Ma,  get  random  number 

add  sumrdt.ax 

nov  dx , FTIME10  ;Ha,  load  interframe  time 

mul  dx  ;Ha,  get  total  delay  time  in  microseconds 
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>:&r 

:>:  ,  a>; 

:  Ma,  reset  ax 

cov 

S1, WORD  PTR 

"toff  ;  load  ieparacs  addr. 

sov 

dx,IE3ASE[si ]  ;  Ma 

add 

dx,KICiICH 

;  Ma,  get  HICMCR  address 

in 

al,dx 

;  Ha,  read  collision  number 

add 

word  ptr  _nc 

olide.ax  ;  Ma 

adc 

word  ptr  _ncolide+2,0  ;  Ma 

call 

isxnitok 

;Ka,  check  transmit  status 

enp 

ax.  Id 

sHa,  returned  /transmit  statusuvalue  - 

incount31 

;Ha,  trasaission  coaplete 

aov 

ax , STOPWAIT 

;Ma,  set  up  wait/no  wait  flag 

call 

stopxnit 

;Ma,  stop  MIC  to  transmit 

jap 

short  incoun 

C3  ;Ma 

incount31: 

add 

wo.;d  ptr  _nxmit,l  ?Ha,  bump  counter 

adc 

word  ptr  _nxnit+2,0  ;Ma 

inc 

countl 

;Ka,  increacent  of  actual  pki 

inc 

count 

;Ma,  increanent  of  total  pkt 

jnp 

short  pass3 

incount 

3: 

inc 

count 

;Ka,  increament  of  total  pkt  S 

pass3 : 

pop 

cx 

dec 

cx 

' 

jnz 

jrepX3 

call 

dowho 

;Ha,  list  WhoAml  result 

Sprint 

RPnsg 

; 

Sprx 

4, stop  count 

Sprint 

crlf 

Sprint 

COnsg 

raov 

bx,word  ptr  . 

.ncolide+2 

Sprx 

4  ,bx 

Sprint 

crlf 

jmp 

doxmt 

;Ma 

jrepX3 : 

jnp 

repX3 

;******************************************** 

;  receive  packets 

********************************************* 

dorecv: 

call  rcvsome  ;recieve  packets  for  till  key  hit 

mov  erred, al 

uninit: 

•  ********************** 

call  ResetAdapter 

•  ********************** 
call  fixvecs 

rcov  a 1, erred 
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•out : 


n-n 


inL 

21h 

tstrx7 

endp 

;Ha 

1  xraitl 

proc 

near 

;  transnit  one 

"canned "  packet 

1 

;  setup 

for  PutTxData 

j 

cmp  - 

funcnum,3d 

;Ma 

| 

je 

set3 

;Ma 

| 

cmp 

■funcnum,2d 

;Ma 

| 

je 

set2 

;Ma 

j  setl : 

* 

;put  ou 

r  eaddr  in  xmit  pkt 

1 

KOV 

ax, word  ptr  wbf. 

ea 

mov 

word  ptr  sorca,ax 

mov 

ax, word  ptr  wbf. 

ea+2 

mov 

word  ptr  sorca+2,ax 

mov 

ax, word  ptr  wbf. 

ea+4 

1 

mov 

word  ptr  sorca+4 

,ax 

l 

mov 

al,pendflag 

;Ma 

f 

test 

al,2d 

;Ha,  test  appending  flag  and  wait  status 

1 

jz 

pending 

;Ma,  appending  if  pendflag=0 

i 

mov 

dx,50b 

;Ha,  req  id  and  with  first  xfer  call,  issue 

;Ma,  xmit/no  wait 

t 

jmp 

short  nopending 

t 

I  pending 

mov 

dx,60h 

>Mar  req  id  and  wait,  with  data  pass/no  appendi 

;Ma,  data,  issue  xmit/wait 

nopending: 

mov 

si, off set  CODE:xmtpk  ;xmt  pkt  buffer 

1 

mov 

bx,xplen 

;set  lengths 

mov 

cx,bx 

i 

jmp 

short  setnoTx 

;Ma 

|  set2: 

;put  our  eaddr  in  xmit  pkt 

1 

mov 

ax, word  ptr  wbf. 

ea  ;Ma 

j 

mov 

word  ptr  sorca2, 

ax  ;  Ka 

! 

mov 

ax, word  ptr  wbf. 

ea+2  ;Ha 

i 

mov 

word  ptr  sorca2+2,ax  ;Ma 

mov 

ax, word  ptr  wbf. 

ea+4  ;Ma 

mov 

word  ptr  sorca2+4,ax  ;Ma 

mov 

dx,70h 

;Ma,  req  id  no  wait  with  data  pass,  no  xmit 

I 

.•count 

mov 

si, offset  CODE:xmtpk2  ;xrat  pkt  buffer 

,  ' 

mov 

bx,xplen2 

;set  lengths 

mov 

cx,bx 

jmp 

short  setnoTx 

;Ma 

set3: 

;put  our  eaddr  in  xmit  pkt 
mov  ax, word  ptr  wbf.ea 
mov  word  ptr  sorca3,ax 
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rev  s>.,Ko:d  :  wbi.cn.’ 

cov  word  ptr  sorcaj-f  2 , ax 

bov  ax, word  ptr  wbf.ean 

bov  word  ptr  sorca3+4,ax 

mov  dx,70h  ;Ma,  req  id  no  wait  with  data  pass,  no  >:nit 

; count 

bov  si,offset  C0DE:xmtpk3  ;xrat  pkt  buffer 
bov  bx,xplen3  ;set  lengths 

raov  cx , bx 

'.etnoTx:  mov  di,Offffh  ;no  -TxProcess 

*  ********************** 

call  PutTxData 

•  ********************** 
mov  retsav,ax 

Sprint  XP.msg  ;  /Ma 

Sprx  4,retsav  ;/Ma 

;  Sprint  crlf  ;/Ma 

mov  ax,retsav 

ret 

xmitl  endp 


revsome  proc  near 


:  •  following  code  to  dump  received  packets  for  a  fixed  time 
|  .  Sprint  RSmsg 

chkpk: 

1  Skbdchk  ;key  pressed? 

,  or  al,al 

!  jz  rdbfr 

jmp  wedone 

■  rdbfr: 

'  test  pklock,Offh  ;got  a  pkt? 

jnz  lstpkt 
I  jmp  chkpk 

I  lstpkt: 

i  test  pkerr,Offffh  ;any  error 

;  jz  dmpk 

i  Sprint  GEmsg 

j  Sprx  4;,pkerr 

|  Sprint  crlf 

|  mov  pklock.O 

j  inc  pkent 

.  jmp  chkpk 

1  inpk : 

!  emp  pklen,0 

,  jnz  pkok 

;  Sprint  ZPmsg 

mov  pklock.O 

inc  pkent 

jmp  chkpk 

1  Dkok : 

emp  pklen,256 

jle  dmokl 

mev  pklen,256  ; limit  dump  to  1st  256  bytes 
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in-.>K!  : 

l  onset  CODE : pk Lll  I  - , , pM '■:> 
mov  pkiock , 0 

inc  pkcnt 

jnp  chkpk 

redone : 

@print  REmsg 

mov  ax,0  ;a  return  code 

ret 

rcvsome  endp 


RxProcess 


RxProcess  proc  near 

push  bx 

push  cx 

test  cs: pkiock, Of  fh 

jz  >  getp 

dontget : 

inc  pkcount 

mov  cx,o  ;zero  length  (just  discard) 

jmp  goget 

getp: 

?  At  this  point  we  could  check  es:di  packet  header  data 
,-  to  make  some  decision  on  packet  disposition 

;  lock  our  buffer  and  get  packet  data  into  it 
mov  cs : pkiock, Of fh  ;lock  buff 

mov  cs:pkerr,o 

goget: 

mov  ax , CODE 

mov  es , ax 

mov  di, offset  CODE:pkthd  .-buffer 

or  dl,40h  .-release  buffer 

J  Hr******************-*** 

call  GetRxData 

J  ********************** 

jcxz  nolen 

mov  cs:pkerr,ax 

mov  cs:pklen,cx 

nolen: 

pop  cx 

pop  bx 

ret 

RxProcess  endp 


:  ExitRcvint 

ExitRcvInt  proc  near 
iret 

A— 1 1 3 


*  i  LKc-y 

Int  : 

:> 

;  -  get  and  print  WhoAmI  statistics  - 

dowho 

proc 

near 

push 

es 

xor 

dl,dl  -  ;  adapter  0 

•  ********■*************'* 

call 

Who Am I 

•  ********************** 

mov 

retsav,ax 

Sprint 

WAmsg 

Sprx 

4 ,retsav 

Sprint 

crlf 

mov 

ax,retsav 

or 

ax,  ax 

jz 

wa_ok 

mov 

erred, 3 

jmp 

uninit 

wa_ok: 

mov 

si,di 

mov 

di, off set  CODE:wbf 

push 

ds 

push 

ds 

push 

es 

pop 

ds 

pop 

es 

*■ 

mov 

CX,  24 

cld 

rep 

movsw 

;copy  who  buffer 

pop 

ds 

pop 

es 

call 

whodat  ; print  the  WhoAnI  data 

Sprint 

PAmsg 

mov 

ah,  8 

int 

21h  ;wait  for  key 

ret 

dowho  endp 


whodat 


print  WhoAmI  data 
PROC  near 
Sprint  WOOmsg 


;;;;  Sdmprt  <offset  CODE:wbf>,0,48 

Sprint  WOlmsg 
mov  cx , 6 

mov  bx , 0 

prtea: 
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i-'op 

inc 

loop 

Sprint 

!>x 

bx 

prtea 

crlf 

Sprint 

Sprx 

Sprint 

wd2msg 

2,<word  ptr  wbf.verl-l> 
crlf 

Sprint 

Sprx 

Sprint 

W03msg 

2,<word  ptr  wbf.ver2-l> 
crlf 

Sprint 

Sprx 

Sprint 

WtMmsg 

2,<word  ptr  wbf.ver3-l> 
crlf 

Sprint 

Sprx 

Sprint 

W05nsg 

2 , <word  ptr  wbf.ver4-l> 
crlf 

Sprint 

Sprx 

Sprint 

W06rasg 

2,<word  ptr  wbf.atyp-l> 
crlf 

Sprint 

Sprx 

Sprint 

W07msg  .. 

2,<word  ptr  wbf.astat-l> 
crlf 

Sprint 

Sprx 

Sprint 

WOSmsg 

2,<word  ptr  wbf.bfrs-l> 
crlf 

Sprint 

Sprx 

Sprint 

W09msg 

2, <word  ptr  wbf.nxb-l> 
crlf 

Sprint 

Sprx 

Sprint 

Wiomsg 

4,<word  ptr  wbf.sxb> 
crlf 

Sprint 

Sprx 

Sprx 

Sprint 

Wlltnsg 

4,<word  ptr  wbf.xmtc+2> 

4 , <word  ptr  wbf.xmto 
crlf 

Sprint 

Sprx 

Sprx 

Sprint 

W12msg 

4 , <word  ptr  wbf.xmte+2> 

4 , <word  ptr  wbf . x»te> 
crlf 

Sprint 

Sprx 

Sprx 

Sprint 

W13msg 

4,<word  ptr  wbf.xmtto+2> 
4 , <word  ptr  wbf . xmtto> 
crlf 

Sprint 

Sprx 

Wl4Bsg 

4  ,  <word  ptr  -wbf .  rcvc+2> 
A-11S 

i 


■hodat 


^avvecs 


rep 


i,  a:  ;  J  pfj  w:>!  .  ri'Vi- 
“psiiif  Tli 


Sprint 

W15nssg 

Sprx 

4 ,  <word  ptr  wbf .  rcvbc+2> 

6prx 

4 , <word  ptr  wbf . rcvbc> 

Sprint 

crlf 

Sprint 

WISmsg 

Sprx 

4 . <word  ptr  wbf . rcve+2> 

Sprx 

4 , <word  ptr  wbf . rcve> 

Sprint 

crlf 

Sprint 

wi7msg 

Sprx 

4 , <word  ptr  wbf.rtc+2> 

Sprx 

4,<word  ptr  wbf.rcc> 

Sprint 

crlf 

Sprint 

Wl8msg 

Sprx 

2,<word  ptr  wbf.xfmd-l> 

Sprint 

crlf 

Sprint 

wi9msg 

Sprx 

2,<word  ptr  wbf.wtmd-l> 

Sprint 

crlf 

Sprint 

W20msg 

Sprx 

4,<word  ptr  wbf.extp> 

Sprint 

crlf 

Sprint 

W21rosg 

/Ha 

Sprx 

4,<word  ptr  wbf.xmtcol> 

/Ma 

Sprint 

crlf  ■  . 

/Ma 

ret 

endp 

proc 

near 

push 

ds 

push 

es 

push 

si 

push 

di 

push 

cx 

mov 

ax,ds 

mov 

es,ax 

xor 

ax,  ax 

mov 

ds,ax 

mov 

cx , 22h*2  ? vectors  0  -  2lh,  2  wds  per 

mov 

di, off set  CODEivectsv 

xor 

si, si 

cld 

cli 

movsw 

?save  'em  all 

sti 

pop 

pop 

pop 


cx 

di 

si 
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i  „dvvecs  endp 


1  _ 

!  ixvecs  proc 

near 

i  push 

es 

i  push 

si 

I  push 

di 

push 

cx 

1  xor 

ax, ax 

mov 

es,ax 

mov 

CX, 22h*2 

; vectors 

0  -  21h,  2  wds  per 

mov 

si, offset 

CODE:vectsv 

xor 

di  ,di 

cld 

cli 

rep  movsw 

; restore 

'em  all 

sti 

pop 

CX 

:  POP 

di 

I  pop 

si 

pop 

es 

ret 

f  ixvecs  endp 

dmprt~-~produces  dump  listing,  calling  parameters  are  pushed  on  stack 
(converted  from  a  C  routine) 

INPUTS: 


(bp+4)  =  data  address 

;  [bp+6]  =  starting  address  for  line 

•  ( bp+S ]  =  length  of  data  to  print 

OUTPUT: 

;  Dump  listing  to  stdout  device 

Imprt 

proc 

near 

push 

mov 

mov 

sub 

mov 

push 

mov 

bp 

bp,sp 
bx,bp 
bx , Och 
sp,bx 
si 

ax, (bp+8) 

r local  vars 

;len 

1005c:" 

sub 

mov 

dx,dx 

cx,10h 

10061: 

div 

mov 

cx 

(bp-4), ax 

.•lines 

d0063: 

mov 

(bp-6) ,dx 

;rem 

J0066: 

mov 

word  ptr  (bp-8), 

0  ;i 

A— 1 1 7 


K'.'V 

«  ■:  I*r  [!  i 

-  1 di ! ,  <) 

JOO'/O : 

jmp 

d0158 

J0073: 

push 

dx 

mov 

dl,cr 

;  OOOd 

mov 

ah,  2 

int 

2lh 

mov 

dl ,  If 

;  000A 

mov 

ah,  2 

int 

2lh 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

MOV 

dl,'  ' 

mov 

ah,  2 

int 

21h 

pop 

dx 

mov 

ax, 4 

push 

ax 

mov 

ax,[bp+6]  i 

radr 

add 

ax, (bp-8] 

;i 

push 

ax 

call 

prx 

add 

sp,4  ; 

:0004 

push 

dx 

mov 

dl,'  ' 

mov 

ah,  2 

int 

21h 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

pop 

dx 

mov 

word  ptr  [bp-Och] 

1,0 

d00c5: 

test 

byte  ptr  (bp-Och) 

1,3 

jnz 

d00d5 

push 

dx 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2ih 

pop 

dx 

100d5 : 

mov 

ax,  2  ; 

0002 

push 

ax 

mov 

bx, (bp-8 ) 

i 

mov 

si,(bp+4] 

buf 

mov 

ah,(bx+si)  ; 

buf(i) 

push 

ax 

call 

prx 

add 

sp,  4 

0004 

inc 

word  ptr  (bp-8)  ; 

i 

inc 

word  ptr  (bp-Och) 

;  j 
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i»M><  i) : 


h  ;>'h 


>p”  1 ! 

>!>  dO<*r‘> 

push  dx 

mov  dl ,  *  ' 

mov  ah , 2 

int  21h 

mov  dl , '  ' 

mov  ah, 2 

int  21h 

pop  dx 

sub  word  ptr  (bp-8),l0h  ;i,00l0 

mov  word  ptr  ( bp-Och  ],0  ;j 


;do  ascii 


d0113 : 

mov 

bx, (bp-8] 

;i 

mov 

si, (bp+4 ) 

;buf 

push 

dx 

mov 

dl , (bx+si  ] 

; buffi] 

cmp 

dl,'  ' 

jb 

d013f 

cmp 

dl,7fh 

jb 

d014  2 

d013f : 

mov 

dl,'.' 

;002e 

d0142: 

mov 

ah,  2 

int 

2lh 

pop  •  dx 

inc  word  ptr  (bp-8],  ;i 

inc  word  ptr  [bp-och]  ;j 

cmp  word  ptr  ( bp-och j,10h  ;0010 

jb  dOU3 

inc  word  ptr  (bp-oah]  ;line 

doiS8:  mov  ax, (bp-4)  ;lines 

cmp  (bp-Oah), ax  ;line 

jnb  dOX63 

jmp  d0073 


d0163:  cmp  word  ptr  (bp-6),0  ;rem 

jnz  d0l6c 

jmp  d0272 


d016c: 

push  dx 

mov  dl,cr  ;000d 

mov  ah , 2 

int  21h 

mov  dl,lf  ;000a 

mov  ah , 2 

int  21h 

mov  dl,'  ' 

mov  ah , 2 
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t 


int 

;  !  h 

,TOV 

<11.,  '  ' 

mov 

ah ,  2 

int 

21h 

pop 

dx 

mov 

ax,  4 

;0008 

push 

ax 

mov 

ax, [bp+6  ] 

,-adr 

add 

ax, (bp-8) 

;i 

push 

ax 

call 

prx 

add 

sp,  4 

?0004 

push 

dx 

mov 

dl,.'  ' 

mov 

ah,  2 

int 

21h 

mov 

dl,'  ' 

mov 

ah,  2 

int 

2lh 

pop 

dx 

mov 

word  ptr  (bp-0ch),0 

jmp 

short.  d0lc3 

d0198 : 

test 

byte  ptr  (bp-Och] ,3 

jn2 

d01a8 

push 

dx 

mov 

dl,'  ' 

*■ 

mov 

ah,  2 

int 

2lh 

•  pop 

dx 

-JOlaS: 

mov 

ax,  2 

;0002 

push 

ax 

mov 

bx, (bp-8] 

;i 

mov 

si, [bp+4 ] 

;buf 

mov 

ah, [bx+si] 

;buf[i] 

push 

ax 

call 

prx 

add 

sp,4 

;0004 

inc 

word  ptr  (bp-8] 

;i 

inc 

word  ptr  (bp-Och] 

10lc3: 

mov 

ax, (bp-6] 

;rem 

cmp 

(bp-Och] , ax 

;  j 

jb 

"  d0198' 

jmp 

short  dOlf 4 

JOicd: 

test 

byte  ptr  (bp-Och], 3  ;j 

jnz 

doidd 

push 

dx 

mov 

dl,'  ' 

mov 

ah, 2 

int 

21h 

pop 

dx 
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1 


I 


•  ) *  : 

i 

inov 

d  1,'.' 

:  mov 

ah  ,2 

j  int 

21h 

|  mov, 

dl , ' . ' 

mov 

ah(2 

j  int 

2ih 

i  ,P°P 

dx 

1  inc 

word  ptr  (bp-Och) 

:  d01f4:  cmp 

word  ptr  ( bp-Och ],l0h 

|  jb 

doled 

!  push 

dx 

j  mov 

dl, '  ' 

]  mov 

ah,  2 

j  int 

21h 

;  MOV 

dl,'  ' 

|  mov 

ah,  2 

j  int 

2lh 

pop 

dx 

(  mov 

ax,  (bp-6)  ;rem 

i  sub 

(bp-8], ax  ;i 

*.  mov 

word  ptr  ( bp-Och ],0  ; 

I 

;do 

ascii 

- 

I  d0219 : 

mov 

ax  bp-6] 
(bp-Och] ,ax 

;rem 

- 

cmp 

' 

j 

jnb 

d026c 

mov 

bx, (bp-8] 

;i 

mov 

push 

-si,  (bp+4  J 
dx 

;buf 

mov 

cmp 

dl, (bx+si] 
dl,'  ' 

;buf  [i] 

jb 

d024d 

* 

cmp 

dl,7fh 

t 

jb 

d02S0 

!  d024d: 

mov 

dl,'.' 

;002e 

.  d0250: 

mov 

ah, 2 

int 

21h 

J 

pop 

dx 

j 

inc 

word  ptr  (bp-8) 

?i 

inc 

jmp 

word  ptr  (bp-Och)  ;j 

short  d0219 

d025f : 

push  dx 

mov  dl , ' . ' 

mov  ah , 2 

int  21h 

pop  dx 


;0010 
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CONVERT  KOKD  TO  ASCII  HEX 
Calling  sequence: 

30 v  dx,vord  ;vord  to  convert 

rev  bx, offset  out  ; after e  to  put  output 

call  wtoa 

ds:bx  needs  4  bytes  for  result 


wtoa 

proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

push 

si 

EOV 

si,  4 

wtoaOl: 

rov 

al,cl 

nov 

cl,  4 

sftr 

dx,cl 

and 

al,Ofh 

add 

al, 090ft 

daa 

adc 

al,040h 

daa 

dec 

si 

sov 

[bx+si]. 

jnz 

wtoaOl 

pop 

si 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

wtoa 

ret 

endp 

RCODE 

ENDS 

END  tstrx7 

; digits  per  word 

;get  a  digit 

; strip  the  digit 
;keep  low  nibble 

count  the  digit 
al  ; store  the  digit 
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